Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS