Здравствуйте, Tsnok, Вы писали:

T>Всем привет.
T>Пишу программу на д7 по обмену данными между пк и мобилкой на основе ик порта. Работаю через сокеты.
T>Набросал пример в котором инициализируется финсокет, создается сокет, и вытягивются данные о модели телефона.
T>Но вот подключться к телефону по обексу не получается.
T>Господа программеры помогите разобраться в пробеле.

T>GLOB VAR
T> WSAData_ : WSAdata;
T> Sock : TSocket;
T> devlist : PWINDOWS_DEVICELIST;
T> irADRR : SOCKADDR_IRDA;

T> var
T> buf: array[ 0..4096 ]of char;
T> temp: integer;
T> res: integer;
T> pbuf: PWINDOWS_DEVICELIST;
T> DEV_INFO_0 : _windows_IRDA_device_info;
T> i,j : longint;
T> Name : string;
T> time : longint; {debug var} //\\\\\\\\\\\

T> is_rec : IAS_SET; //irADRR : TirDASockADRR ;// = ( AF_IRDA,0,0,0,0,''#0'' );

T> tmp : longint;
T>begin
T> Sock:= Socket( AF_IRDA, SOCK_STREAM, 0);

T> temp := 4096;
T> res := getsockopt(Sock, SOL_IRLMP, IRLMP_ENUMDEVICES, buf, temp);
T> pBuf := @buf;

T> irADRR.irdaAddressFamily := AF_IRDA;
T> for i := 0 to 4 do
T> irADRR.irdaDeviceID[ i ] := pbuf.numDevice;
T> irADRR.irdaServiceName := 'IrDA:IrCOMM';
T> tmp := connect( Sock, TSockAddr(( @irADRR )^), sizeof( irADRR ) );

T> List.Items.Add( 'Count found device"s...' + IntToStr( pbuf.numDevice ) ); // List.Items.Add( PCHAR( DEV_INFO_0.irdaDeviceID ) );

T> if pbuf.numDevice = 0 then
T> List.Items.Add( 'Mibile device NOT FOUND......' )
T> else
T> for i := 0 to pbuf.numDevice — 1 do
T> begin
T> Name := '';
T> DEV_INFO_0 := pbuf.Device[ i ];

T> for j := 0 to 22 do
T> Name :=Name + DEV_INFO_0.irdaDeviceName[ j ];
T> List.Items.Add( 'Device ' + inttostr( i + 1 ) + '....' + Name );
T> List.Items.Add( '..............................' );
T> end;


T>ЗЫ
T>Благодарю за помощь!


Уважаемый Tsnok, столкнулся с такой же задачей (связать телефон с компом по ИК). Только у меня успехов еще меньше
Я так же как и Вы дружу больше с Делфи чем с Си. Если вы добились каких-либо результатов — помогите мне. Во-первых, что надо подключить чтобы хотябы приведенный вами код давал признаки жизни? а если можете, не могли бы вы выложить полный листинг. (обещаю использовать только в ознакомительных целях ) Благодарю!