Hi Leute
Ich bin gerade dabei einen Server udn einen Client zu schreiben, besser gesagt einen sender und einen empfänger naja wie auch immer.
Der Spaß geht so: Ich kann im einen Befehlszeilen eingeben wie z.B. "getkey" und dann per Button an den anderen senden.
Der führt dann den passenden Befehl aus.
Der Befehlsausführer sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm1.Timer1Timer(Sender: TObject);
var
c, a : integer;
begin
a := pos( 'getkey' ,Memo1.Text );
if a <> 0 then
begin
With IdTCPServer1 do
begin
Writeln(memo2.text);
end;
Memo1.Text := '';
end;
end; |
Ich hab ne extra Prozedur die sozusagen alle Tastendrücke im Memo2 speichert und dieses soll dann gesendet werden wenn der befehlscode "getkey" kommt.
Wenn ich nun mit meinem Befehlsgeber diesen Code sende kommt von dem Ding hier aber nur I/O 105 und das etwa im takt des timers.
Was ist denn das für ein fehler und wie behebe ich selben?
Mfg
Cabal
