VPF::Как динамически создать TIdHttp в программе безGUI

poiuyt1234

Дата 12.5.2008, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Как динамически создать TIdHttp в программе безGUI?
Нашел здесь на форуме вот такой код:

Код


with TIdHttp.Create do
  try
    try
      http.Get('http://www.site.ru/script.cgi?data=12345');
      ShowMessage('Отправлено корректно');
    except
      ShowMessage('Ааааа! Шеф, всё пропало!');
    end;
  finally
    Free;
  end;

Но он не работает. Компилятор пишет:
Not enough actual parametrs в этой строке:

Код


with TIdHttp.Create do

pseud

Дата 12.5.2008, 15:06 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40

а так

Код


with TIdHttp.Create(Self) do

Добавлено через 1 минуту и 53 секунды
хотя без GUI видимо так

Код


with TIdHttp.Create(nil) do

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Snowy

Дата 12.5.2008, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А, ну да. nil забыл.
От руки наскорую код писал...
Это и не код даже. Так... Схема...
Код таким будет:

Код


function GetHttp(url: string): string;
begin
  with TIdHttp.Create(nil) do
  try
    try
      result := Get(url);
    except
      result := Response.ResponseText;
    end;
  finally
    Free;
  end;
end;

poiuyt1234

Дата 12.5.2008, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Вот код вызывающий ошибку 10061 connection refused:

Код


program Project2;


uses
  idhttp,
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Controls,
  ExtCtrls,
  ComCtrls,
  StdCtrls,
  WinSock;

var
  htp:tidcustomhttp;
  a:string;

begin
  { TODO -oUser -cConsole Main : Insert code here }
   htp := tidhttp.Create(nil);
  a :=  htp.Get('ya.ru');
    sleep(1000);
     end.

В чем прроблема?

Snowy

Дата 12.5.2008, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Проблема в адресе.
Правильно писать http://www.ya.ru/

poiuyt1234

Дата 12.5.2008, 15:41 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Да! Именно так.

SneG0K

Дата 12.5.2008, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

poiuyt1234, в который раз повторяю, что ошибка 10061 - это когда программе не удается подключиться к другому компу. Т.Е. такого адреса просто не существует!!! Снови тебе правильно сказал, что ты где-то ошибся при вооде адреса.

Добавлено через 1 минуту и 58 секунд

Цитата(SneG0K @ 12.5.2008, 15:15

)

просто не существует!!!

точнее адрес не в сети

MetalFan

Дата 12.5.2008, 20:53 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

какая версия индейцев?
з.ы. счас наверное услышим, что та, что с делфей шла

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »