Hallo, habe kurze und wichtige frage: Habe Delphi6 und benutze die PORT.DLL. Möchte die im Edit Feld eingegebene Tel. Nr. Seriell an einem Microkontroller übertragen. Die Kommunikation ansonst läuft, nur irgendwie komm ich net weiter. Übertragen wird immer nur ein Byte. Es soll aber Ziffer für Ziffer (Bsp.: 0171 >>> 30h,31h,37h,31h) übertragen werden. (00h,01h,07h,01h würde auch gehen, hauptsache die eigentlichen Zahlen tauchen auf, der rest kann der MC "wegschneiden". Habe auch schon im Forum gesucht, aber nichts passendes gefunden. Hier Programm-"Ausschnitt":
Delphi-Quellcode:
procedure TForm1.COM41Click(Sender: TObject);
begin
OpenCom (pchar('com4:19200,N,8,1'));
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ziffer : integer; s:string;
begin
if Edit1.Text <> '' then begin
ziffer := strtoint(Edit1.Text);
sendbyte (ziffer);
end
else
showmessage ('Telefon-Nummer eingeben!');
end;
Ich danke jetzt schonmal an dieses schön aufgebaute Forum, finds gut, weiter so...
MFG GierigeSau
[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]