|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.644 Beiträge
Delphi 12 Athens
|
Re: Probleme bei DLL - Rückgabewert
12. Dez 2007, 13:52
Versuch es mal so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
theAuswIDT: string;
theLength: integer;
theTimeOutMilliSeconds: integer;
begin
SetLength(theAuswIDT,17);
theLength := 16;
theTimeOutMilliSeconds:= 300;
_ReadReaderStartStop(PChar(theAuswIDT),theLength,theTimeOutMilliSeconds);
SetLength(theAuswIDT,StrLen(PChar(theAuswIDT)));
Edit2.Text := theAuswIDT;
Edit3.Text := IntToStr(theLength);
Edit4.Text := IntToStr(theTimeOutMilliSeconds);
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|