OLE. DLL Zugriff. XE2

[matashen]

Hallo zusammen,

der Titel ist etwas abgehakt aber im Prinzip gehts genau darum.

Ich habe für einen Zugriff auf unseren MES-Server eine dll. Ein Kollege von mir hat in Delphi (Ich glaube Turbo Delphi) eine Beispielanwendung geschrieben für den Zugriff über die dll auf unseren MES-Server.

Wenn ich einen Zugriff mit meinem XE2 auf den Server mache bekomme ich entweder eine Rückmeldung von der dll "-1000: Server nicht gefunden" oder eine Meldung "OLE Fehler FFFFFFF".

das heist ich kompilier auch nur die Beispielanwendung von meinem Kollegen. Bei meinem XE2 gehts nicht. Bei seinem Uralt-Delphi gehts.

Ist da ein bekannter Fehler in XE2. Updates hät ich aber alle inkl. des letzten Hotfix.

Langsam glaub ich nicht an einen Fehler meinerseits sondern an einen Fehler vom XE2. Das Netz hab ich mir heute schon Wund-gegoogelt aber auf eine Lösung bin ich nicht gestoßen.

Evtl. hat jemand von euch da Erfahrungen/Informationen.

Gruß Matthias

[baumina]

Das ist sicherlich ein UniCode-Problem. Achte auf PChar -> PAnsiChar usw.

[matashen]

Naja wenn ich einfach den Severstatus abfrage läuft nicht viel Text

mal hier der Auszug

Delphi-Quellcode:

    Path := ExtractFilePath(ParamStr(0))+'mes_toolbox.dll';    // Wenn Dll im gleichen Pfad wie die Exe liegt.
    DLL := PChar(Path);
    DLLHandle := LoadLibrary(DLL);
    checkptr:= GetProcAddress(DLLHandle,'CHECK_DB_CONNECTION');
    @DLLCheck:= CheckPtr;
    j:=dllcheck;
    if j=0 then statusbar1.panels[0].Text:=inttostr(j)+' Datenbank Verbindung OK';
    if j=-1000 then statusbar1.panels[0].Text:=inttostr(j)+' Fehler: keine Verbindung zur DB';

[baumina]

Versuch mal

Delphi-Quellcode:

// DLL := PChar(Path);
strPCopy(DLL,Path);

EDIT: Aber ich denke das hilft nix. Wenn dein DLLHandle sowieso schon gültig war, ausser du hast das nie geprüft.

[matashen]

Also wenn ich
strPCopy(DLL,Path);
einsetze, krachts und es kommt zu einer Zugriffsverletzung.

Delphi-Quellcode:

 TCheck_DB_Connection = Function:integer;stdcall;
....
    DLLGET_Batch_INFOS_XML :TGET_BATCH_INFOS_XML;
    DLLCheck               :TCheck_DB_Connection;
    DLLHandle             :THandle;
    DLL                   :Pchar;

dürfte auch passen? Oder muss ich das anders deklarieren.

[matashen]

2.1 Funktionsprototyp / Parameter
Die meisten Funktionen haben folgenden Aufbau:
function FunktionsName_XML (pIn:pchar;pOut:pchar;size:integer):integer;export ;stdcall;
Parameter: pIn Struktur für Eingabeparameter
pOut Puffer für die Struktur der Ausgabeparameter
size Größe des Ausgabepuffers pOut in Byte
Parameterstruktur:
Die In,-Out-Parametern werden in einer XML Struktur übergeben