如何得到客户端ip地址？

Question

怎么检测拨号连接成功？，如何得到客户端ip地址？

Answer 1

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  re:pchar;
  sbuf:string;
  relong:integer;
begin
    re:=nil;
    while socket.ReceiveLength>0 do
      begin        
        re:=AllocMem(socket.receivelength);
      TRY
        relong:=socket.ReceiveLength;
        Socket.ReceiveBuf(re^,Socket.receivelength);
        sBuf:=strpas(re);
        Setlength(sbuf,relong);
        TotalLen:=TotalLen+ relong;        
       label5.Caption:= 'Total Received (Byte): ' + IntToStr(TotalLen);
       FINALLY
        freemem(re); 
      END;
   M1.Lines.Add(sbuf);  
   end;
   end;