Как использовать API-функцию connect?

← →
net-lamer (2002-07-25 20:41) [0]

Чего-то не врубаюсь как ее использовать. В SDK чего-то ни хрена не понять.

int connect (
SOCKET s,
const struct sockaddr FAR* name,
int namelen
);

Чего это за структура такая name и как ее объявить, заполнить и указать в connect.

Если не в лом, расскажите еще про recv и send.

← →
Digitman © (2002-07-26 09:01) [1]

Это тебе зачем ? Чем не устраивают готовые стандартные компоненты для работы с гнездами ?

← →
net-lamer (2002-07-26 11:54) [2]

А потому как пишу non-VCL прогу. А вставка компонентов резко увеличивает размер проги. Терпеть не могу прог типа Hello world! размером по 400 кило.

← →
Polevi © (2002-07-26 12:08) [3]

uses Winsock

var
FAddr: TSockAddrIn;
FSocket:TSocket;
begin
FSocket := socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
FAddr.sin_family:=PF_INET;
FAddr.sin_addr.s_addr := inet_addr(PChar("192.168.1.1"));
FAddr.sin_port := htons(110);
connect(FSocket, FAddr, SizeOf(FAddr));

← →
Digitman © (2002-07-26 12:23) [4]

Позволю себе усомниться, что у тебя что либо получится стоящее при такой постановке вопроса и аргументах)

Если уж ты не в состоянии, подумав головой, исключить модуль Forms из списка используемых Scktcomp, дабы радикально уменьшить размер своей "проги", или изучить работу упомянутых тобой WinsockAPI-вызовов на примере того же TClientSocket, то - лучше не начинай.

Ну, если я таки ошибаюсь в предположениях, держи ответ по connect() :

вот соответстыующие декларации в модуле Winsock.pas

u_int = Integer;

{ The new type to be used in all
instances which refer to sockets. }
{$EXTERNALSYM TSocket}
TSocket = u_int; // хэндл гнезда

in_addr = record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long); // IP-адрес
end;
TInAddr = in_addr;

sockaddr_in = record
case Integer of
0: (sin_family: u_short;// код семейства Инет-адресов, например, AF_INET
sin_port: u_short; // номер целевого порта
sin_addr: TInAddr; // структура, описывающая целевой адрес
sin_zero: array[0..7] of Char); //
1: (sa_family: u_short;
sa_data: array[0..13] of Char)
end;
TSockAddr = sockaddr_in;

function connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;

← →
net-lamer (2002-07-26 16:35) [5]

Всем спасибо за ответы!
Но теперь другая беда - пока я их ждал попробовал что-то накропать сам. Получилась такая пурга:
procedure TForm1.Button1Click(Sender: TObject); var nSMTPServerSocket:integer; nConnect:integer; smtp_address: sockaddr_in; iLength, iMsg, iEnd , error:integer; mes:string; begin nSMTPServerSocket := socket (AF_INET, SOCK_STREAM,IPPROTO_IP); error:=WSAGetLastError(); case error of WSANOTINITIALISED : label4.Caption:="A successful WSAStartup must occur before using this function."; WSAENETDOWN: label4.Caption:="The network subsystem or the associated service provider has failed."; WSAEAFNOSUPPORT: label4.Caption:="The specified address family is not supported."; WSAEINPROGRESS:label4.Caption:="A blocking Windows Sockets 1.1 call is in progress, or the service provider is still processing a callback function."; WSAEMFILE :label4.Caption:="No more socket descriptors are available."; WSAENOBUFS : label4.Caption:="No buffer space is available. The socket cannot be created."; WSAEPROTONOSUPPORT: label4.Caption:="The specified protocol is not supported."; WSAEPROTOTYPE : label4.Caption:="The specified protocol is the wrong type for this socket."; WSAESOCKTNOSUPPORT : label4.Caption:="The specified socket type is not supported in this address family."; else label4.Caption:=inttostr(error); end; label1.Caption:=inttostr(nSMTPServerSocket); {if(nSMTPServerSocket <> INVALID_SOCKET) then begin label1.Caption:="socket O.K."; closesocket(nSMTPServerSocket); end else label1.Caption:=inttostr(nSMTPServerSocket); } smtp_address.sin_family := AF_INET; smtp_address.sin_addr.s_addr := inet_addr("x.x.x.x"); // IP сервака smtp_address.sin_port := htons(25); nConnect := connect(nSMTPServerSocket, smtp_address, sizeof(smtp_address)); label2.Caption:=inttostr(nConnect); iLength:=0; iMsg:=0; iEnd:=0; mes:="HELO aaa\r\nMAIL FROM:<mail@host>\r\nRCPT TO:<mail@host>\r\nDATA\r\nTest\r\n\r\n.\r\nQUIT\r\n"+#0; iend:=send(nSMTPServerSocket, mes, strlen(pchar(mes)), 0); label3.Caption:=inttostr(iEnd); closesocket(nSMTPServerSocket); end;

Но чего-то эта хренотень не работает с самой первой строчки nSMTPServerSocket := socket (AF_INET, SOCK_STREAM,0); возвращает щшибку "A successful WSAStartup must occur before using this function.". Чего бы это могло значить?

По примеру Polevi пробовал socket (AF_INET, SOCK_STREAM,IPPROTO_IP); - один хрен.

Может перед этим чего еще проинициализировать надо?

To Digitman
Позволю себе усомниться, что у тебя что либо получится стоящее при такой постановке вопроса и аргументах)
Если уж ты не в состоянии, подумав головой .......

Да на надо меня так ругать, я ж не профессиональный программер, а так, пишу для себя без претензий на что-то выдающееся.

← →
Digitman © (2002-07-26 16:50) [6]

>net-lamer

Так тогда и вопрос ставь по-иному :

"Я не знаю ничего о низкоуровневом механизме WinsockAPI. Какие основные, ф-ции в каких режимах, с какими параметрами. В какой последовательности должны вызываться для осуществления корректной передачи инф-ции по гнездовому соединению ? Где можно посмотреть подробную инф-цию на эту тему ?"

← →
Wonder © (2002-07-26 16:51) [7]

>net-lamer
socket (AF_INET, SOCK_STREAM,IPPROTO_IP);
Ну откель вы все берете AF_INET? Там PF_INET (protocol family)
должно быть! Хоть и цифири одинаковые и не влияет это ни на что, но логика-то где?

"A successful WSAStartup must occur before using this function.". Чего бы это могло значить?
То и значит, что написано. Успешный вызов ф-ции WSAStartup() должен предшествовать всем вызовам ф-ций из WinSock.

← →
Digitman © (2002-07-26 16:56) [8]

Вот ты пойми - прежде, чем отвергать "творчество" Борланда за якобы излишне большие размеры твоей программы, нужно разобраться - а почему это так ? Что лишнего ? Ну, залезь ты, не поленись в модуль, где Борланд "сотворил" TClientSocket да посмотри, как же сам Борланд делает это ! Ну, почему ты сразу отвергаешь чужой опыт и пытаешься строить тот же велосипед по-новому, набивая шишку за шишкой ? Что , это так сложно - разобраться в готовом коде, выкинуть из него лишнее и оставить только то, что тебе действительно нужно ? Ну, просвети меня, тундру, не понимаю я этого ....

← →
net-lamer (2002-07-29 15:32) [9]

Еще раз спасибо за ответы и, только не смейтесь, еще пару вопросов.

1) Поставил первой строкой
var wsad:WSAData; begin err1 := WSAStartup( 2, wsaD );
А какую на самом деле надо цифирь указывать в WSAStartup. Правда вроде и так сработало без ошибок.
2) Вроде ошибок нигде не выдается, но письмо не доходит. Может в строке mes (само письмо) символы /n и /r надо задавать как char(x) и если это так, то какие у них коды (типа у /n код 10 или 13).

И немного лирики.
To Digitman
Так тогда и вопрос ставь по-иному :
---------
"Я не знаю ничего о низкоуровневом механизме WinsockAPI. Какие основные, ф-ции в каких режимах, с какими параметрами. В какой последовательности должны вызываться для осуществления корректной передачи инф-ции по гнездовому соединению ? Где можно посмотреть подробную инф-цию на эту тему ?"
---------

Ну дык так оно и есть, см. мой ник. Ну и "Где можно посмотреть подробную инф-цию на эту тему ?" и желательно в дельфийском контексте.

To Wonder
Ну откель вы все берете AF_INET? Там PF_INET (protocol family)
должно быть!
----------
А какая разница - вот в исходниках нашел PF_INET = AF_INET;

Где можно посмотреть ? Я ж тебе говорю - в модуле ScktComp.pas : готовый и 100%-но работающий код ! Куда уж наглядней ...

Digitman, если у тебя плохое настроение - не издевайся над людьми.

>Malder

Может, мне еще и номер строки с WSAStartup() в модуле scktcomp.pas указать ? Где четко, черным по белому написано, какие параметры и в каком синтаксие требует этот вызов ? Где и как объявить все то, от чего зависит работа и WSAStartup() и прочих WS2API-ф-ций ? Ну, чтобы совсем уж не думать головой ? Просто "содрать" один-в-один строчки к себе в код, и - заработало и ладно ? Так что ли ?

Как использовать API-функцию connect? Найти похожие ветки