Erstmal ein paar Änderungen:
Delphi-Quellcode:
procedure TmainForm.TimerTimer(Sender: TObject);
begin
if ftp.Connected
then
begin
chat.Navigate('
friendsmain.funpic.de/chat.txt');
// was hat das eigendlich für einen sinn ???
end;
URLDownloadToFile(
nil,pchar('
http://friendsmain.fr.funpic.de/chat.txt'),pchar('
C:\Fainds-Friends\chat.txt'), 0,
nil);
Memo1.LoadfromFile ('
c:/Fainds-Friends/chat.txt');
// damit lädt er das dann auch ...
end;
procedure TmainForm.bsendClick(Sender: TObject);
begin
timer.Enabled := false;
Memo1.Lines.LoadFromFile('
c:/Fainds-Friends/chat.txt');
Memo1.Lines.Add (text.Text);
// Open und close-dialog brauchste nicht, wenn du sie nicht benutzt ...
memo1.Lines.SaveToFile('
c:/Fainds-Friends/chat.txt');
ftp.Put('
c:/Fainds-Friends/chat.txt', '
chat.txt');
timer.Enabled := true;
end;
end.