ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,winsock, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
 WM_MYSOCKMESS = WM_USER+1;
var
  Form2: TForm2;
  info:wsadata;
  addr:tsockaddr;
  a:tsocket;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
addr.sin_family:=af_inet;
addr.sin_port:=htons(80);
addr.sin_addr.S_addr:=inet_addr(pansichar(edit1.text));
a:=socket(af_inet,sock_stream,0);
if a=INVALID_SOCKET then
begin
 memo1.Lines.Add('Ошибка 1 '+ (inttostr(WSAGetLastError)));
end;

connect(a,addr,sizeof(addr));
 if connect(a,addr,sizeof(addr))= 0 then
 begin
   memo1.Lines.Add('ок');
 end
 else
 begin
    memo1.Lines.Add('Ошибка 2');
 end

end;

procedure TForm2.FormCreate(Sender: TObject);

begin
wsastartup($101,info);
end;

end.