Delphi Probleme bei DLL - Rückgabewert

Thema durchsuchen

Ansicht

Themen-Optionen

Probleme bei DLL - Rückgabewert

Ein Thema von BigBen · begonnen am 12. Dez 2007 · letzter Beitrag vom 12. Dez 2007

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge

Delphi 12 Athens

Re: Probleme bei DLL - Rückgabewert

12. Dez 2007, 12:52

Versuch es mal so:

zusammenfalten · markieren

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