Ich habe mit dem
Indy Telnet Server ein bisschen rumprogrammiert. Nun möchte ich gerne das er mir dem Inhalt einer TEXT Datei die ich vorher in eine Stringlist geladen habe zurückschickt. Wie mach ich jetzt aus der Stringlist einzelne Strings...
Text Datei speichern
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var s: Tstringlist;
begin
listbox1.Items.Add(datetostr(date) + ' ' + timetostr(time) + ': ' + edit1.Text);
edit1.Clear;
listbox1.Items.SaveToFile('text.txt');
end;
Inhalt laden und zurückschicken lassen
Delphi-Quellcode:
rocedure TForm2.IdTelnetServer1Execute(AThread: TIdPeerThread);
var
str : string;
s: Tstringlist;
begin
with AThread.Connection do
begin
Write(' ');
Write('Kommando>');
str:=InputLn('');
WriteLn(str);
if (str='exit') or (str='logout') then
Disconnect;
if (str='key') then
begin
s.LoadFromFile('text.txt');
/// was muss hier rein ????
deletefile('text.txt');
end;
end;
end;