БОЛЬШОЙ FAQ ПО DELPHI



Отправить данные формы с помощью WebBrowser

После установки на орбитальном комплексе "Мир" нового компьютера российские космонавты наконец-то смогли соединиться с Интернетом и купить там много полезных вещей: например, цифровую видеокамеру, крутую стереосистему, плюшевого мишку и новую космическую станцию.


 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: Integer;
   EncodedStr: string;
   Header: OleVariant;
   Post: OleVariant;
 begin
   // Make the post string URL encoded 
   EncodedStr := 'name=SwissDelphiCenter.ch&text=Test Guestbook entry';
 
   // The post must be an array. But without null terminator (-1) 
   Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
 
   // Put Post in array 
   for I := 1 to Length(EncodedStr) do
     Post[I - 1] := Ord(EncodedStr[I]);
 
   Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
 
   WebBrowser1.Navigate('http://www.swissdelphicenter.ch/en/addguestsent.php', EmptyParam,
     EmptyParam, Post, Header);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ