get запрос

[Stilet]

Что значит отключили?

Наверное хостили что-то про Путина нехорошее, вот их и взяли

[mitiay]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const blabla:array[1..2] of string=('sait.ru','site2.ru');
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
   sl: TStringList;
    i: integer;
    s:string;
begin
s:='';
k:=Low(blabla);
while k<Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/1.txt');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('????? ?? ???????');
 exit;
begin
sl:= TStringList.Create;

    sl.Text:=s;

    for i:= 0 to sl.Count-1 {??? ??????? ????, ????. 5} do
   (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
 sl.Free;
end;
end;
end;
end.

Делаю вот так!данные не появляется

[Stilet]

const blabla:array

ПитрасянЪ
Уважаю.

данные не появляется

Сообщение с ????? ?? ??????? выскакивает?

[mitiay]

Сообщение от Stilet

ПитрасянЪ
Уважаю.

Сообщение с ????? ?? ??????? выскакивает?

нет ))) тишина вообще )

[Stilet]

То-есть тишина? Программа зависает?
Пошаговку делал?

[саша40]

Автор, inc(k) перенеси в finally. У тебя программа зацикливается просто.
Причина: Он это выражение поставил на случай ошибки.

[Stilet]

У тебя программа зацикливается просто.

А ну ка ткни пальчиком, где она там зацикливается с пояснением, и я добавлю тебе баллов, если пояснение будет правдивым.

[mitiay]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const blabla:array[1..2] of string=('site.ru','blabla2');
var k:integer;
   sl: TStringList;
    i: integer;
    s:string;
begin
s:='';
k:=Low(blabla);
while k<Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/key.txt');
  showmessage('ssss');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('????? ?? ???????');
 exit;
begin
sl:= TStringList.Create;
sl.Text:=s;

    for i:= 0 to sl.Count-1 {??? ??????? ????, ????. 5} do
   (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
   showmessage('qqqq');
 sl.Free;
end;
end;
end;
end.

SSS выходит qqqq тишина

[Stilet]

Отладкой пройдись.

[mitiay]

Сообщение от Stilet

Отладкой пройдись.

Прошелся host not found... socet error и вопросы!путь прописан правельно на 100%