[Помогите!] ИСХОДНИК ЧАТА

[CyberNEŦik]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР Советую попробовать включить мозг и проанализировать имеющиеся данные

да блин дайте исходник ааа надоели уже

[D.E.Z.E.R.T.I.R]

не давайте ему исходник

[ElectroVamp]

Цитата: Сообщение от CyberNEŦik да блин дайте исходник ааа надоели уже

1. Берем компоненты: Memo, Edit, Button, IdHTTP, idFTP, Timer и Label.

2. Для чего все надо: Memo, Edit и Button - думаю с этим все понятно. IdHTTP и Timer нужны для чтения чата с сервера ucoz, idFTP для отправки сообщений, в Label будем выводить сам чат (Visible должно быть False, чтобы пользователь не видел лишнего текста)
Если кто знает как выводить сразу в Memo, а не в Label то можете переделать))

3. Собственно сам код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
HTTP:TIdHTTP;
s:string;
begin
HTTP:=TIdHTTP.Create(nil);
s:=HTTP.Get('http://site.ucoz.ru/Chat.txt');
Memo1.Clear;
Memo1.Lines[0] := s;
   end;

procedure TForm1.Button9Click(Sender: TObject);
var
S: TStringList;
begin
S:=TStringList.Create;
S.Text:=Edit1.Text;
S.SaveToFile('Chat.txt');
Edit1.Clear;

IdFTP1.Username:= 'Login FTP';
IdFTP1.Password:= 'Pass FTP';
IdFTP1.Host:= 'Host FTP';
IdFTP1.Passive:= True;
if IdFTP1.Connected then
IdFTP1.Disconnect
else
try
IdFTP1.Connect(True);
except
on E : Exception do
ShowMessage('Îê: '+E.Message);
end;
if IdFTP1.Connected then
try
IdFTP1.Put('Chat.txt', 'Chat.txt', True);
except
on E : Exception do
ShowMessage('Íåà: '+E.Message);
end;
DeleteFile('Chat.txt');
IdFTP1.Disconnect;
end;

Вот в принципе и все, небольшие задержки только при отправке сообщений 1-2сек.

[SunRRRice]

ElectroVamp, это ему не поможет - больно уж "непонимающий" он .. Да и в той теме что
РОСПОТРЕБНАДЗОР дал все это есть Зря стараться .

[CyberNEŦik]

Цитата: Сообщение от D.E.Z.E.R.T.I.R не давайте ему исходник

, если я тебе не дал исходник dezbota, не надо так злится ...