Как спарсить

[NIKOLAYY2]

Понял, как оно все сложно то получается. Спарсить то не поблема если это есть в исходном коде страницы, но на этом сервере нету что я выбрал.
Я думаю все-таки будет проще поискать другой сервер почтовых ящиков- который в исходный код страницы выдает временный почтовик.

[Terikon]

У мня вот так вот получилось, Sec-WebSocket-Key: 3UydwNGF+7jm6WyCuOtQUg== возможно может меняться

procedure TForm30.btn1Click(Sender: TObject);
var
  http: THTTPSendEx;
  temp: TStringStream;
begin
  http := THTTPSendEx.Create;
  http.GZIPAllowed := False;
  http.Timeout := 10000;
  temp := TStringStream.Create;
  http.Headers.Add('Sec-WebSocket-Key: 3UydwNGF+7jm6WyCuOtQUg==');
  http.Headers.Add('Upgrade: Websocket');
  http.Headers.Add('Sec-WebSocket-Version: 13');
  http.GET('http://dropmail.me/websocket');
  temp.LoadFromStream(http.Document);

  ShowMessage(Copy(temp.DataString, 3, Pos(':', temp.DataString) - 3));

  http.Free;
  temp.Free;
end;

[NIKOLAYY2]

У меня что- то так показало:

var
  http: THTTPSendEx; //тут ошибка
  temp: TStringStream;
begin
  http := THTTPSendEx.Create;
  http.GZIPAllowed := False; //и тут ошика
  //.............................

[Terikon]

Я использовал модифицированный синапс, вот здесь можешь его взять
http://arhangelsoft.ru/delphi/advanc...y-thttpsendex/

или воспользоваться обычным синапсом или даже индейцами главное передавать в заголовках те параметры которые я выше указал