[Статья] Чат с помощью ucoz

[FarmHitman1]

Цитата: Сообщение от Naik1998 Интервал 1000? можно увеличить на какие допустимые параметры?

Как тебе будет лучше Это время обновления окна с чатом.

[sasha-]

Цитата: Сообщение от Naik1998 Интервал 1000? можно увеличить на какие допустимые параметры?

чем меньше - тем лучше можно даже и 55 поставить(минимальное в компоненте) ну оптимал гдето от 500 до 2000

[Stalkerr]

Блин за полгода забыл как решать эти проблемы=( короче скатал ваш код, прилепенил и он не компилируется, не ранается(не запускается)...

unit Chat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdExplicitTLSClientServerBase, IdFTP,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
(*опись типа блоков*)
type
    TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdFTP1: TIdFTP;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
(*начало*)
var
  Form1: TForm1;

implementation

{$R *.dfm}
     //Нажатие на кнопку
procedure TForm1.Button1Click(Sender: TObject);      {Начало}
var
S: TStringList;
begin
S:=TStringList.Create;
Edit1.text := Edit2.text + ': ' + Edit1.text;
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;    {Конец}
     //Таймер
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;      {конец таймера}
end.     {конец всего}

Подскажите.. что я забыл сделать...

[FarmHitman1]

Цитата: Сообщение от Stalkerr Блин за полгода забыл как решать эти проблемы=( короче скатал ваш код, прилепенил и он не компилируется, не ранается(не запускается)... unit Chat; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IdExplicitTLSClientServerBase, IdFTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; (*опись типа блоков*) type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Button1: TButton; IdHTTP1: TIdHTTP; IdFTP1: TIdFTP; Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; (*начало*) var Form1: TForm1; implementation {$R *.dfm} //Нажатие на кнопку procedure TForm1.Button1Click(Sender: TObject); {Начало} var S: TStringList; begin S:=TStringList.Create; Edit1.text := Edit2.text + ': ' + Edit1.text; 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; {Конец} //Таймер 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; {конец таймера} end. {конец всего} Подскажите.. что я забыл сделать...

1. Прописать Логин, Пароль и Хост FTP сервера
2. Указать путь на твой сайт, где храниться Chat.txt

[꞊Krσησs꞊]

Так же можно сделать счётчик посещений программы. (запусков сейчас тоже можно сделать) Оо.

[Innova]

Цитата: Сообщение от FarmHitman1 Refresh в таймере работает... НО... после того как он делает обновление таргет с Edit слетает Есть ли код для выбора в таргет Edit ?

Перенести таргет на едит:
Edit1.SetFocus;
или
Edit1.Focus;

[CyberNEŦik]

У меня почему то не работает, у кого нибудь есть исходник?

[-=|GOOBER|=-]

если можно залейте сюда исходник..буду благодарен

[[M.G.] KoBaL]

Чтобы не отдавать данные FTP - лучше сделать .php скрипт, который будет заносить и отдавать информацию

[Teaser]

Цитата: Сообщение от -=|GOOBER|=- если можно залейте сюда исходник..буду благодарен

да выложите исходник пожалуйста

[lesha1337]

помогите решить проблему, вместо русского текста получаю символы

Добавлено через 10 часов 28 минут
с этим разобрался
скажите а как сделать каждое сообщение с новой строки ?

[G8pY3d43]

Цитата: Сообщение от lesha1337 помогите решить проблему, вместо русского текста получаю символы Добавлено через 10 часов 28 минут с этим разобрался скажите а как сделать каждое сообщение с новой строки ?

[Dimedrol1536]

Всем привет.
Скопировал код, сообщения не отправляются на FTP.
В чом может быть проблема?
RAD XE3.

[Sinyss]

Цитата: Сообщение от Dimedrol1536 Всем привет. Скопировал код, сообщения не отправляются на FTP. В чом может быть проблема? RAD XE3.

Цитата: Сообщение от FarmHitman1 1. Прописать Логин, Пароль и Хост FTP сервера 2. Указать путь на твой сайт, где храниться Chat.txt

Как то так...
И напишите, XE3 выводит какое то сообщение или "просто не отправляет"...

[Dimedrol1536]

Sinyss, просто не отправляет.
Кстати:

IdFTP1.Connect(True);

Ругался на True, пришлось удалить.