Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

Подскажите способ простейшего обмена данными между двумя 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? В Дельфи семь нету. Или у тебя страя Дельфя какая то?


 
VMcL ©   (2005-03-21 08:36) [10]

>>Наши   (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



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

Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.034 c
4-1114245891
dron-s
2005-04-23 12:44
2005.06.14
Куда установлена система


4-1114230724
Andrewk88
2005-04-23 08:32
2005.06.14
System directory


1-1117521519
liver
2005-05-31 10:38
2005.06.14
Alt + F4


3-1115211791
pavel_guzhanov
2005-05-04 17:03
2005.06.14
Как в базу данных поместить картинку?


1-1117365248
Rembo
2005-05-29 15:14
2005.06.14
Печать содержимого TStringgrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский