Подскажите способ простейшего обмена данными между двумя ip ?

← →
Сетъ (2005-03-14 01:25) [0]

Данных мало, скорость не критична. Никаких наворотов не нужно. Демок от Дельфий нет, если что.

← →
Eraser © (2005-03-14 09:31) [1]

Сначала почитай теорию о сокетах (winsocket API).
Потом для удобства советую использовать Indy 10.

← →
Сеть (2005-03-15 03:11) [2]

> Eraser © (14.03.05 09:31) [1]
> Сначала почитай теорию о сокетах (winsocket API).

Я не спрашивал что мне читать, я спросил пример кода.

← →
VMcL © (2005-03-15 07:31) [3]

>>Сеть (15.03.05 03:11) [2]

Сумма?

← →
Eraser © (2005-03-15 21:19) [4]

Сетъ

Держи пример кода (бесплатно!!!)

stVCL:=TIdStreamVCL.Create(ms);
idC:=TIdTCPClient.Create;
idc.ConnectTimeout:=3000;
idc.Port:=iTCPPort;
idc.Host:=pchHost;
idc.IOHandler.Write(stVCL, stVCL.Size);

разобрался как передавать данные по сети? )

← →
Сеть (2005-03-17 06:45) [5]

> Eraser © (15.03.05 21:19) [4]
> Сетъ
>
> Держи пример кода (бесплатно!!!)

А дальше ?

← →
Anatoly Podgoretsky © (2005-03-17 08:49) [6]

Сеть должна знать как она работает.

← →
Alexander Panov © (2005-03-17 11:45) [7]

Сеть (17.03.05 6:45) [5]
А дальше ?

А дальше смотри VMcL © (15.03.05 7:31)

← →
Наши (2005-03-19 04:23) [8]

> Alexander Panov © (17.03.05 11:45) [7]
> Сеть (17.03.05 6:45) [5]
> А дальше ?
>
> А дальше смотри VMcL © (15.03.05 7:31)

> VMcL © (15.03.05 07:31) [3]
> >>Сеть (15.03.05 03:11) [2]
>
> Сумма?

Жиды что ли ?

← →
2 Ирайзер (2005-03-21 02:40) [9]

> Eraser © (15.03.05 21:19) [4]
> Держи пример кода (бесплатно!!!)
> stVCL:=TIdStreamVCL

А где взять этот TIdStreamVCL? В Дельфи семь нету. Или у тебя страя Дельфя какая то?

>>Наши (19.03.05 04:23) [8]

На три четверти украинец, на четверть беларус. Более подробно с моей генеалогией можете ознакомиться здесь:
http://tinyurl.com/2m6lr

← →
RealTimer (2005-03-24 00:06) [11]

Простого пути нет. Indy - на редкость беспонтовая библиотека
(и не пишите мне ваши письма ненависти). С
IdTCPServer/IdTCPClient я не справился. Мое мнение об этих
компонентах - работают только примеры, и то - не на всякой
машине (Честное пионерское). Советую использовать IdUDPServer-
этот точно работает, причем везде. На прием сообщения - событие
OnUDPRead. На передачу - процедуры Send, SendBuffer
Вот примеры:
На передачу
var
fSocket:TIdUDPSocket;
procedure Form1.SendIt(const aData: string);
begin
fSocket.Send("162.176.1.0",1001,aData);
end;

На прием
var
fSocket:TIdUDPSocket;

procedure Form1.OnCreate(Sender:TObject);
var
fSocket:TIdUDPSocket;
begin
.......// здесь инициализация..там просто
fSocket.OnUDPRead:=fSocketOnUDPRead;
end;

procedure Form1.fSocketOnUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
s:string;
begin
n:=AData.Size;
SetLength(s,n);
AData.Read(s[1],n);
// в s - полученная строка
// ABinding.PeerIP - адрес отправителя
// ABinding.PeerPort - порт отправителя
end;
Это пример для UDP - т.е. доставку не гарантирует. Впрочем у
меня везде работало и exception-ами не парило

← →
RealTimer (2005-03-24 00:19) [12]

Sorry
Ошибка !!!
var
fSocket:TIdUDPSocket;
Верно так
var
fSocket:TIdUDPServer;

Не надо смущаться - и с клиентской и с серверной стороны -
TIdUDPServer. Ресурсов есть мало, работает быстро. Запускается
даже на клячах типа 66 Mhz , Win95

Подскажите способ простейшего обмена данными между двумя ip ? Найти похожие ветки