hello list

I been looking at the example pfinger and to modify it,

but not leaves.
send to give me an example of as connecting me through a socket al port 3490 and the address 192.168.1.1

thanks for all

Subject: [fpc-pascal]not connect socket help

Here's a snip from a (Win32-)program of mine (should work on Unices as well, not tested there). Use Delphi mode to compile:

type
    UInt32 = DWord;
    UInt16 = Word;
const
    INVALID_SOCKET = -1; // dunno if this is already defined by Unices
var
    hoststring : String; // your "192.168.1.1"
    sock_fd : TSocket; // socket (file) handle
    he : PHostEnt; // host entry
    port : UInt16; // port, e.g. 3490
    their_addr : TSockAddrIn; // target address
...
 port := 3490;
 hoststring := '192.168.1.1';
 he := gethostbyname(PChar(hoststring));
 if (he = nil) then begin
    // prints given error message+last error number, closes socket if open
and exits program
  sockshutdown('gethostbyname()');
 end;
 Writeln('Retrieving socket....');
 sock_fd := Socket(AF_INET, SOCK_STREAM, 0);
 if (sock_fd = INVALID_SOCKET) then begin
  sockshutdown('socket()');
 end;
 fillchar(their_addr, sizeof(their_addr), 0);
 with their_addr do begin
  sIn_family := AF_INET;
  sIn_port := htons(StrToInt(port));
  sIn_addr.s_addr := Uint32((@he^.h_addr^[0])^);
 end;
 Writeln('Connecting to socket....');
 if (connect(sock_fd, their_addr, sizeof(their_addr))  0) then begin
  sockshutdown('connect()');
 end;
  // at this point the socket is connected to the machine
...
 close(sock_fd);

Hth (a little at least),
Thomas