Недавно добавленные исходники

•  3D Designer  114

•  Sik Screen Capture  95

•  Patch Maker  83

•  Айболит (remote control)  99

•  ListBox Drag & Drop  79

•  Доска для игры Реверси  1 344

•  Графические эффекты  90

•  Рисование по маске  67

•  Перетаскивание изображений  70

•  Canvas Drawing  77

•  Рисование Луны  147

•  Поворот изображения  56

•  Рисование стержней  49

•  Paint on Shape  44

•  Генератор кроссвордов  57

•  Головоломка Paletto  71

•  Теорема Монжа об окружностях  108

•  Пазл Numbrix  53

•  Заборы и коммивояжеры  81

•  Игра HIP  61

•  Игра Go (Го)  48

•  Симулятор лифта  52

•  Программа укладки плитки  54

•  Генератор лабиринта  96

•  Проверка числового ввода  44

•  HEX View  98

•  Физический маятник  100

•  Задача коммивояжера  127

•  Автомобильная пробка  51

•  Квадратные сетки из слов  45

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Отправить данные формы с помощью 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;





Похожие по теме исходники

Mini WebBrowser (браузер)

Simple WebBrowser (браузер)




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter