Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как динамически создать TIdHttp в программе безGUI

Автор: poiuyt1234 12.5.2008, 15:04

Как динамически создать 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

а так

Код


with TIdHttp.Create(Self) do

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

Код


with TIdHttp.Create(nil) do

Автор: Snowy 12.5.2008, 15:26

А, ну да. 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

Вот код вызывающий ошибку 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

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

Автор: poiuyt1234 12.5.2008, 15:41

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

Автор: SneG0K 12.5.2008, 16:15

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

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

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

)

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

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

Автор: MetalFan 12.5.2008, 20:53

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