Отправить , а потом принять пакет.

[casper123]

Добрый день,

Приведите пожалуйста пример кода, который бы мог отправить пакет на сервер с определенным ИП и Портом , а как только сервер пришлет ответ - выдать этот ответ в Memo.

Желательно еще кодировать эти пакеты BlowWIsh'ем, но это не обязательно, хочется просто понять как отправлять подобные пакеты..

[Квэнди]

Компонент TIdTcpClient(server) работа этих компонент описана в книге, ссылку на которую вы можете увидеть в объявлении этого раздела. Также в том же объявлении присутствует ссылка на примеры работы с этими компонентами

[casper123]

Глянул исходники, скомпилил, работают, только я вообще не понял как, нигде нету ни ИП , ни порта ... Каким образом они работают , только на 1 машине чтоли?

Вы тут почти всем код даёте, помогите и мне пожалуйста!

ДЛя примера, мне нужно будет отправлять пакет 0b0000 00000000 125ae336 на IP 99.99.99.99 , порт 2106 , потом, если все ок сервер возвратит мне другой пакет, он должен быть выведен в Memo. Покажите примерный код пожалуйста

[casper123]

Кое что уже получилось, а именно подключиться к серверу, но как отправить пакет я все равно не разобрался....
Создал форму, на ней TCPClient и написал примерно такую процедуру:

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
ShowMessage('УРА!Есть Коннект!');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
with IdTCPClient1 do
begin
    Host:='217.13.197.170';
    Port:=2106;
    Connect;
    try
    finally
    Disconnect;
    end;
end;
end;

Тоесть, если законектились , то Программа выдает Ура!Есть Коннект, а если нет, то судя по тесту вообще вылетает с ошибкой дельфи, ну да и фиг с ней, самое главное, что при используемом мной ИП и ПОРТЕ Коннект удался, как теперь отправлять\принимать пакеты? Пожалуйста помогите, я уже(вроде) сделал пол дела,ну никак с пакетами разобраться не могу