Poseidon, я не профи в этом деле, но вот что думаю:
| Код |
var
chat: TIdHTTP;
base:string;
begin
chat:=TIdHTTP.Create(nil);
try
base := chat.Get('http://www.mychat.ru/script.php?nik=tester&user_mess=Hello');
except end;
chat.Free;
end;
|
А на серваке положить script.php, со скриптом который добавляет от виртуального пользователя tester его сообщение. Еще добавить что бы в случае успешного выполнения скрипта оно заносило из базы сообщений пользоваетелей в base.
Ну а теперь написать что б из base все данные выводились, скажем в memo
Конечно, впрос безопасности подвис, если пользоваетль узнает, что программа передает удаленному узлу данную строчку, то юзер без проблем откроет ее в браузере http://www.mychat.ru/script.php?nik=admin&user_mess=privet и зайдет под админом.
Моно впринципе, передавать еще одно значение, скажем indef_code в которой могуть быть заложены цифры, полученные путем шифрования значений nik и user_mess, а на серваке скрипт научить проверять на правильность значений! Вот тода уже придется разгадывать алгоритм шифрования! Вот например так:
http://www.mychat.ru/script.php?nik=admin&user_mess=privet&indef_code=14a!s4$d5@f&ip{g |