Hallo Adrian,
hast du meine Idee versucht?
[edit]... ich glaub ich weis wo dein Fehler liegt
mit 0x00 ist wahrscheinlich keine Zeichenkette sondern das Zeichen Hex 00 gemeint. Das ganze kannst du dann so lösen:
Delphi-Quellcode:
procedure SendeBefehl;
var
aBuff: Array[0..255] of Char;
begin
aBuff[0] := CHR($00);
aBuff[1] := CHR($00);
aBuff[2] := ' ';
aBuff[3] := 'T';
aBuff[4] := 'e';
aBuff[5] := 's';
aBuff[6] := 't';
aBuff[7] := 'p';
aBuff[8] := 'r';
aBuff[9] := 'o';
aBuff[10] := 'g';
ComportMain.Write(aBuff, 11);
end;
und damit du das nicht für jeden Befehl soo umständlich machen musst nutzt du meine Funktion von oben, dann sieht das ganze nur noch so aus:
SendeBefehl(CHR($00) + CHR($00) + ' Testprog');
[/Edit ende] [edit 2] humbug entfernt[/edit 2]
Gruß