|
03.05.2012, 12:34
|
#16
|
|
|
|
Разведчик
|
Регистрация: 27.08.2011
Сообщений: 43
Популярность: 470
Сказал(а) спасибо: 86
Поблагодарили 159 раз(а) в 70 сообщениях
|
Re: Чат с помощью ucoz
|
|
|
03.05.2012, 19:24
|
#17
|
|
|
|
Разведчик
|
Регистрация: 29.08.2010
Сообщений: 22
Популярность: 22
Сказал(а) спасибо: 3
Поблагодарили 6 раз(а) в 4 сообщениях
|
Re: Чат с помощью ucoz
|
|
|
12.05.2012, 20:37
|
#18
|
|
|
|
Пехотинец
|
Регистрация: 28.06.2010
Сообщений: 73
Популярность: 242
Сказал(а) спасибо: 59
Поблагодарили 30 раз(а) в 21 сообщениях
|
Re: Чат с помощью ucoz
Блин за полгода забыл как решать эти проблемы=( короче скатал ваш код, прилепенил и он не компилируется, не ранается(не запускается)...
Код:
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. {конец всего}
Подскажите.. что я забыл сделать...
|
|
|
13.05.2012, 13:56
|
#19
|
|
|
|
Разведчик
|
Регистрация: 27.08.2011
Сообщений: 43
Популярность: 470
Сказал(а) спасибо: 86
Поблагодарили 159 раз(а) в 70 сообщениях
|
Re: Чат с помощью ucoz
|
Цитата: |
|
|
|
|
|
|
|
|
|
Блин за полгода забыл как решать эти проблемы=( короче скатал ваш код, прилепенил и он не компилируется, не ранается(не запускается)...
Код:
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
|
|
|
16.08.2012, 01:36
|
#20
|
|
|
|
Разведчик
|
Регистрация: 12.08.2012
Сообщений: 9
Популярность: 102
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Чат с помощью ucoz
Так же можно сделать счётчик посещений программы. (запусков сейчас тоже можно сделать) Оо.
|
|
|
29.08.2012, 08:31
|
#21
|
|
|
|
Разведчик
|
Регистрация: 24.05.2010
Сообщений: 5
Популярность: 10
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Чат с помощью ucoz
|
Цитата: |
|
|
|
|
|
|
|
|
|
Refresh в таймере работает... НО... после того как он делает обновление таргет с Edit слетает
Есть ли код для выбора в таргет Edit ?
|
|
|
|
|
|
Перенести таргет на едит:
Edit1.SetFocus;
или
Edit1.Focus;
|
|
|
29.08.2012, 21:54
|
#22
|
|
|
|
Разведчик
|
Регистрация: 21.08.2012
Сообщений: 19
Популярность: -310
Сказал(а) спасибо: 14
Поблагодарили 6 раз(а) в 5 сообщениях
|
Re: Чат с помощью ucoz
У меня почему то не работает, у кого нибудь есть исходник?
|
|
|
04.09.2012, 00:54
|
#23
|
|
|
|
Разведчик
|
Регистрация: 07.12.2011
Сообщений: 8
Популярность: 364
Сказал(а) спасибо: 11
Поблагодарили 87 раз(а) в 36 сообщениях
|
Re: Чат с помощью ucoz
если можно залейте сюда исходник..буду благодарен
|
|
|
06.09.2012, 23:48
|
#24
|
|
|
|
Разведчик
|
Регистрация: 04.12.2011
Сообщений: 2
Популярность: -55
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
Re: Чат с помощью ucoz
Чтобы не отдавать данные FTP - лучше сделать .php скрипт, который будет заносить и отдавать информацию
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
|
|
|
30.04.2013, 10:08
|
#26
|
|
|
|
Разведчик
|
Регистрация: 27.04.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Чат с помощью ucoz
помогите решить проблему, вместо русского текста получаю символы
Добавлено через 10 часов 28 минут
с этим разобрался
скажите а как сделать каждое сообщение с новой строки ?
Последний раз редактировалось lesha1337; 30.04.2013 в 20:36.
Причина: Добавлено сообщение
|
|
|
10.07.2013, 09:58
|
#28
|
|
|
|
Фельдмаршал
|
Регистрация: 22.02.2011
Сообщений: 949
Популярность: 34698
Сказал(а) спасибо: 939
Поблагодарили 2,534 раз(а) в 911 сообщениях
|
Re: Чат с помощью ucoz
Всем привет.
Скопировал код, сообщения не отправляются на FTP.
В чом может быть проблема?
RAD XE3.
|
|
|
10.07.2013, 19:40
|
#29
|
|
|
|
Старший сержант
|
Регистрация: 29.07.2011
Сообщений: 197
Популярность: 8989
Сказал(а) спасибо: 45
Поблагодарили 175 раз(а) в 139 сообщениях
|
Re: Чат с помощью ucoz
|
|
|
10.07.2013, 20:51
|
#30
|
|
|
|
Фельдмаршал
|
Регистрация: 22.02.2011
Сообщений: 949
Популярность: 34698
Сказал(а) спасибо: 939
Поблагодарили 2,534 раз(а) в 911 сообщениях
|
Re: Чат с помощью ucoz
Sinyss, просто не отправляет.
Кстати:
Код:
IdFTP1.Connect(True);
Ругался на True, пришлось удалить.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
Ucoz
|
DominatorX |
Вопросы и ответы, обсуждения |
0 |
27.11.2010 21:57 |
[Помогите!] UcoZ
|
Dominian |
Общение и обсуждение, архив Lineage 2 |
8 |
14.10.2010 16:32 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 15:27.
|
|