|
ИСХОДНИК ЧАТА - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
11.11.2012, 15:45
|
#16
|
|
|
|
Разведчик
|
Регистрация: 21.08.2012
Сообщений: 19
Популярность: -310
Сказал(а) спасибо: 14
Поблагодарили 6 раз(а) в 5 сообщениях
|
Re: ИСХОДНИК ЧАТА
|
|
|
11.11.2012, 16:04
|
#17
|
|
|
|
Сержант
|
Регистрация: 07.05.2012
Сообщений: 117
Популярность: 1781
Сказал(а) спасибо: 16
Поблагодарили 82 раз(а) в 44 сообщениях
|
Re: ИСХОДНИК ЧАТА
не давайте ему исходник
|
|
|
11.11.2012, 21:09
|
#18
|
|
|
|
Лейтенант-командор
|
Регистрация: 01.02.2011
Сообщений: 699
Популярность: 61124
Золото Zhyk.Ru: 30
Сказал(а) спасибо: 2,384
Поблагодарили 1,970 раз(а) в 1,074 сообщениях
|
Re: ИСХОДНИК ЧАТА
|
Цитата: |
|
|
|
|
|
|
|
|
|
да блин дайте исходник ааа надоели уже
|
|
|
|
|
|
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сек.
|
|
|
11.11.2012, 22:51
|
#19
|
|
|
|
Старший сержант
|
Регистрация: 06.08.2012
Сообщений: 172
Популярность: 25196
Сказал(а) спасибо: 0
Поблагодарили 443 раз(а) в 164 сообщениях
|
Re: ИСХОДНИК ЧАТА
ElectroVamp, это ему не поможет - больно уж "непонимающий" он .. Да и в той теме что
РОСПОТРЕБНАДЗОР дал все это есть Зря стараться .
________________
My life, my life
Makes you wanna run away
[SIGPIC][/SIGPIC]
|
|
|
12.11.2012, 16:10
|
#20
|
|
|
|
Разведчик
|
Регистрация: 21.08.2012
Сообщений: 19
Популярность: -310
Сказал(а) спасибо: 14
Поблагодарили 6 раз(а) в 5 сообщениях
|
Re: ИСХОДНИК ЧАТА
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Обменяю] Исходник ВХ на Ежа
|
ReDJokeR |
Point Blank |
0 |
13.12.2011 17:38 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 15:44.
|
|