Hallo,
Erneut sind fürmich einige Probleme nicht lösbar:
1.Ich habe mit Indy10 einen Telnet Client als Procedure geschrieben. Die Rückmeldungen des clients sollen jeweils in ein Panel der Statusbar geschrieben werden. Es gelingt mit dem folgenden Code die Meldungen des Servers jeweils in ein Memofeld zu schreiben. Im Panel passiert nichts beziehungsweise es erscheint nach disconnect nur die letzte Meldung:
Delphi-Quellcode:
procedure TForm1.TSReader;
begin
TCPClient.Connect;
if TCPClient.Connected then begin
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.add(msg);
TCPClient.IOHandler.WriteLn('stop');
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.add(msg);
statusbar1.Panels[2].Text:=msg;
sleep (1000);
TCPClient.IOHandler.WriteLn(tune);
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.Add(msg);
statusbar1.Panels[2].Text:=msg;
TCPClient.IOHandler.WriteLn('stall 30');
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.add(msg);
statusbar1.Panels[2].Text:=msg;
TCPClient.IOHandler.WriteLn(play);
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.Add(msg);
statusbar1.Panels[2].Text:=msg;
TCPClient.IOHandler.WriteLn('play vlc1');
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.Add(msg);
statusbar1.Panels[2].Text:=msg;
TCPClient.Disconnect;
VLCPlugin1.stop;
VLCPlugin1.addTarget('http:wjonat.dyndns.org:80 :http-caching=3000)', null, VLCPlayListInsert, 0);
Memo1.Lines.Add(msg);
statusbar1.Panels[2].Text:=msg;
VLCPlugin1.play;
end;
end;
Was mache ich falsch?
Das zweite von mir nicht gelöste Problem betrifft die Breite eines Panels. Bei Grössenänderung des ProgrammFensters wird jeweils das rechte äusserste Panel (bei z.B. 3 Panels) angepasst, die beiden anderen Panels behalten ihre Breite. Ist es möglich, das die Breite desrechten Panels konstant bleibt aber das mittlere angepasst wird??
Wie man unschwer erkennt bin ich blutiger Anfänger und bin für jede Hilfe dankbar.
Euer Max2621