Hi!
Ich möchte gerne das, was von der ComSchnittstelle zurück kommt (benutze Async Pro)
in eine Stringliste speichern. Das funtioniert nicht und ich weiß nicht wo der
Fehler liegt (Es wird nur ein Zeichen gespeichert. Müssten aber einige Reihen sein.)
Hier der Quelltext:
Delphi-Quellcode:
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
Data: String;
I: Integer;
List: TStringList;
begin
List:=TStringList.Create;
Data := '';
for I:= 0 to Count-1 do
Data := Data + ApdComPort1.GetChar;
List.Add(Data);
List.SaveToFile(ExtractFilePath(ParamStr(0))+ 'temp.txt');
List.Free;
end;