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

procedure TForm1.Button8Click(Sender: TObject);
var
 thId:cardinal;
begin
 CreateThread(0,0,@Getdata,nil,0,thid);
 
{
  Мой код, который надо выполнять после получения ответа
    }

end;

procedure TForm1.Button1Click(Sender: TObject);

const
 HTTPAgent   = 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506; InfoPath.2; .NET CLR 3.5.21022)';
 FlexEngine  = 'http://127.0.0.1;
 FlexContent = #$00#$03#$00#$00#$00#$01#$00#$0D#$75#$73#$65#$72#$2E#$73#$65#$6E#$64#$47#$69#$66#$74#$00#$02#$2F#$31#$00#$00#$00#$A2#$0A#$00#$00#$00#$01#$11#$0A#$0B#$01#$15#$66#$72#$69#$65#$6E#$64#$5F#$75#$69#$64#$06#$0F#$35#$35#$30#$34#$33#$38#$38#$03#$6B#$06#$41#$30#$64#$30#$62#$39#$37#$66#$32#$62#$61#$34#$38#$35#$37#$38#$30#$65#$35#$33#$31#$37#$33#$32#$30#$39#$33#$32#$36#$31#$34#$39#$36#$03#$74#$06#$15#$31#$32#$34#$39#$39#$31#$34#$32#$37#$39#$0F#$67#$69#$66#$74#$5F#$69#$64#$06#$11#$31#$39#$36#$39#$31#$30#$31#$35#$11#$61#$75#$74#$68#$63#$6F#$64#$65#$06#$11#$35#$31#$35#$31#$38#$37#$34#$30#$0F#$6D#$65#$73#$73#$61#$67#$65#$06#$01#$03#$6C#$06#$05#$72#$75#$13#$73#$65#$6E#$64#$5F#$74#$79#$70#$65#$04#$01#$0F#$66#$61#$72#$6D#$75#$69#$64#$06#$0F#$38#$38#$32#$32#$35#$32#$39#$01#$00;
 ContentType = 'application/x-amf';
var
 SL: TStringList;
begin
 idHTTP1.ProxyParams.ProxyServer:='127.0.0.1';
 idHTTP1.ProxyParams.ProxyPort:=8888;
 IdHTTP1.Request.UserAgent := HTTPAgent;

 SL := TStringList.Create;
 SL.Add(FlexContent);

 IdHTTP1.Request.ContentType := ContentType;

 try
 Showmessage(IdHTTP1.Post(FlexEngine, SL));
 finally
  SL.Free;
end;
//Memo1.Text := t.DataString;
end;