| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TServerSocket и TClientSocket
OneFragLeft © (2004-11-28 16:07:00)Извините за дурацкий вопрос, но я не могу их найти.
В каком модуле они находятся знаю, но на какой вкладке они расположены - не нашёл.
Или их там вообще нету?
Ещё раз прошу прощения. Спасибо.
Делфя - нумер 7.
raidan (2004-11-28 17:28:00) [1]>begin...end © (28.11.04 17:05) [6]
Прям так ему и написали :)
А я в свое время часов пять убил, пытаясь понять, как оно все должно работать :)
OneFragLeft (2004-11-28 17:12:00) [2]
procedure Reader(Sender: TObject; Socket: TCustomWinSocket);
Вот эта волшебная строка! Спасибо.
begin...end (2004-11-28 17:05:00) [3]> [5] OneFragLeft © (28.11.04 16:56)
> Вчера советовали мне, но ничего не вышло.
Вчера ничего не вышло, потому что Вы дали неправильную информацию.
Но совет там всё же был дан.
Объявляете в форме метод:
type
TMyForm = class(TForm);
...
private // или в public
procedure Reader(Sender: TObject; Socket: TCustomWinSocket);
end.
Пишете его реализацию:
procedure TMyForm.Reader(Sender: TObject; Socket: TCustomWinSocket);
begin
// Здесь - то, что нужно делать в обработчике
end
И где-нибудь назначаете своему ClientSocket'у (разумеется, после его создания) этот обработчик:
MyClientSocket.OnRead := MyForm.Reader
Вот и всё. ДелОв-то.
OneFragLeft (2004-11-28 16:56:00) [4]Можно кодом помочь?
Вчера советовали мне, но ничего не вышло.
raidan (2004-11-28 16:53:00) [5]>OneFragLeft © (28.11.04 16:49) [3]
Обработчик OnRead - суть процедура (или функция, разницы глобальной нет).
Что мешает присвоить в runtime обработчику событий OnRead свою собственную процедуру (которая имеет такие же параметры). ИМХО - ничего не мешает. Я в свое время так и делал - все прекрасно работало.
OneFragLeft (2004-11-28 16:49:00) [6]А как тогда сделать вот это:
Virus.exe © (27.11.04 17:30) [7]
TServerSocket1.Address:="ip сервака";
TServerSocket1.Active:=true; //подключение к серверу
TServerSocket1.Socket.SendText(request); //отправка запроса
в обработчике OnRead пиши что-то типа:
TServerSocket1.Socket.ReceiveText(response);
request и response - переменные типа string например.
после этого в response будет содержаться код страницы.
В RunTime не получается сделать обработчик события.
raidan (2004-11-28 16:38:00) [7]А они суть невизуальные компоненты :)
OneFragLeft (2004-11-28 16:33:00) [8]А куда это все подевались?
| |
