TServerSocket и TClientSocket

← →
OneFragLeft © (2004-11-28 16:07) [0]

Извините за дурацкий вопрос, но я не могу их найти.
В каком модуле они находятся знаю, но на какой вкладке они расположены - не нашёл.
Или их там вообще нету?
Ещё раз прошу прощения. Спасибо.
Делфя - нумер 7.

← →
OneFragLeft © (2004-11-28 16:33) [1]

А куда это все подевались?

← →
raidan © (2004-11-28 16:38) [2]

А они суть невизуальные компоненты :)

← →
OneFragLeft © (2004-11-28 16:49) [3]

А как тогда сделать вот это:

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:53) [4]

>OneFragLeft © (28.11.04 16:49) [3]
Обработчик OnRead - суть процедура (или функция, разницы глобальной нет).
Что мешает присвоить в runtime обработчику событий OnRead свою собственную процедуру (которая имеет такие же параметры). ИМХО - ничего не мешает. Я в свое время так и делал - все прекрасно работало.

← →
OneFragLeft © (2004-11-28 16:56) [5]

Можно кодом помочь?
Вчера советовали мне, но ничего не вышло.

> [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

Вот и всё. ДелОв-то.

procedure Reader(Sender: TObject; Socket: TCustomWinSocket);
Вот эта волшебная строка! Спасибо.

>begin...end © (28.11.04 17:05) [6]
Прям так ему и написали :)
А я в свое время часов пять убил, пытаясь понять, как оно все должно работать :)

TServerSocket и TClientSocket Найти похожие ветки