String an VB Dll übergeben geht nicht

**Primus**

Hallo Zusammen,

ich stehe hier gerade vor dem Problem an unsere Serviceapplication ein externes Dokumentenmanagement anzubinden.
Eigentlich kein Problem, da es eine gut Dokumentierte Schnittstelle per VB-Dll gibt, leider hab ich das Problem
das ich keinen String an die Dll übergeben kann.

Zuersteinmal hier die VB Deklaration:

Declare Function FindDoc Lib "MACRODLL.DLL" (ByVal Suchstr$, ByRef DocIdString$) As Long

Hier nun die Delphi Variante

zusammenfalten · markieren

Delphi-Quellcode:

			 function FindDoc(pSQLCommand,ppDocumentID:pchar):longint; stdcall; external 'Macrodll.dll';

procedure TfrmKaufvertragsinformation.Button1Click(Sender: TObject);

var

 SQLString : PChar;

 result,FileId,FilePath,FileTypeName,FileName,p :pchar;

 Handle:integer;

begin

 LoginAuthDip('ABCD',False);

 SQLString := 'KDNR = ''B79568''';

 if FindDoc(SQLString,result) >0 then

 begin

  Handle := OpenDoc(result);

  if Handle > 0 then

 begin

   FindFirstFileID(Handle,FileId);

   GetProxessFile(Handle,FileId,FilePath,FileTypeName,FileName);

   Showmessage(FilePath+' '+FileName);

   CloseDocUnsaved(Handle);

 end;

end;

Von dem SQLStrig kommt bei der Dll nur ein 'K' an. Und das verstehe ich garnicht...

Hat jemand ne Idee oder hab ich jetzt nur nen Brett vor dem Kopf und sehe das warscheinlichste nicht?

Danke schon mal,

Primus

String an VB Dll übergeben geht nicht

String an VB Dll übergeben geht nicht

Forumregeln