Hier nochmal der Code, hoffe diesmal richtig angehängt.
Delphi-Quellcode:
///// Liest eine gewählte Datei ein und sendet die Daten per com 1 an das Endgerät /////
procedure TForm1.DateieinlesenClick(Sender: TObject);
var
Liste : TStringList;
i : Integer;
data :
string;
F: TextFile;
filename :
String;
prdwerte :
array of integer;
begin
if OpenDialog1.Execute
then { Dialog zum Dateiöffnen anzeigen }
begin
filename := OpenDialog1.FileName;
try
Liste := TStringList.Create;
Liste.LoadFromFile(filename);
for i := 0
to Liste.Count-1
do
begin
// ShowMessage(Liste[i]);
apdcomport1.putstring(Liste[i]);
apdcomport1.putstring(#13);
repeat
apdcomport1.putstring('
prd');
apdcomport1.putstring(#13);
Setlength(prdwerte,length(prdwerte)+1);
until [high(prdwerte)-1]<>prdwerte[high(prdwerte)];
/// FEHLER ???
end
finally
Liste.Free;
end;
end;
end;
///// Stellt den Antwortbefehl des Endgerätes auf einem Memo da /////
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
Data:
String;
I: Integer;
begin
for I:= 0
to Count-1
do
Data := ApdComPort1.GetChar;
Memo1.text:= data;
end;
end.