Скачать: CL | DM;

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]

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

---

← →
begin...end ©   (2004-11-28 17:05) [6]

> [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 17:12) [7]

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

---

← →
raidan ©   (2004-11-28 17:28) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c