Registriert seit: 21. Mai 2004
Ort: Lage
232 Beiträge
Delphi 2005 Professional
|
Re: Variablenübergabe C-Programm an Delphi dll - Probleme
23. Jan 2007, 16:17
folgend ist die delphi- dll, die letztendlich erst mal nur die ihr übergebenen Werte anzeigen soll.
Delphi-Quellcode:
library notiz;
uses
SysUtils,
Classes,
ComObj,
ActiveX,
StdVcl,
Windows,
Messages,
Variants,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
ExtCtrls,
uLogFile;
{$R *.res}
function anhaengen(docID, dbID, text: PChar): Integer; cdecl;
var
LogFile : TLogFile;
LogName : String;
begin
Result:= 0;
CoInitialize( nil);
Result:= 100;
LogFile:= TLogFile.Create;
LogName:= ExtractFilePath(Application.ExeName)+' NotizAnhaengen.log';
LogFile.LogInfo(' ---NotizAnhaengen gestartet ---------------', LogName, 0, 0);
LogFile.LogInfo(' docid, dbid, notiz: '+ trim(docid)+' ,'+ trim(dbid) +' ,'+trim(text), LogName, 0, 0);
LogFile.LogInfo(' Result: '+ inttostr(Result), LogName, 0, 0);
exit;
end;
exports
anhaengen;
begin
end.
Susanne
|
|
Zitat
|