Привет! Небольшой вопросик, не совсем представляю, какой запрос можно скормить поиску, поэтому сразу спрошу: есть такой вот код (это типа реконструкция):

..................

Код

var Txt:String; //Глобальная переменная .................. procedure HttpGet.GetString; begin Txt:='A wonderful message'; //Четвертый шаг end; procedure Test; begin HTTPGet.URL:=URL; //Первый шаг HTTPGEt.GetString; //Второй шаг ShowMessage(Txt); //Третий шаг end;

Проблема в том, что весь этот код выполняется в описанном порядке, в результате на третьем шаге ShowMessage() выдает пустую строку. Так вот можно ли сделать так, чтобы компилятор сперва выполнял подпрограммы (т.е. HttpGet.GetString здесь), а потом все, что идет ниже? Чтобы данный код выдал мне "A wonderful message", а не пустую строку.

Это сообщение отредактировал(а) Girder - 14.1.2006, 23:57

Не совсем понятно..... Данный код отрабатывает без проблем и в нужном порядке.....
Может быть в функции HttpGet.GetString создается поток и по его завершении Txt получает значение!?
Добавлено @ 20:12
Нужно бы код по подробнее привести...

а что у тебя такое HttpGet....?

Слепал пример, того, чего я хочу добится. Код внутри прокомментирован, компонент HTTPGet из DRKB приложен. Переименуйте gif в rar, иначе не дает грузить сюда

Присоединённый файл ( Кол-во скачиваний: 13 )
 getfile_showmessage.gif 5,61 Kb

мдя.... а событие

Код

procedure TForm1.HTTPGet1DoneString(Sender: TObject; Result: String);

вообще не срабатывает...... срабатывает процедура

Код

procedure THTTPGet.ThreadDone(Sender: TObject);  begin    FResult := FThread.FTResult;    if FResult then     if FThread.FTToFile then      if Assigned(FDoneFile) then FDoneFile(Self, FThread.FTFileName, FThread.FTFileSize) else     else      if Assigned(FDoneString) then FDoneString(Self, FThread.FTStringResult) else    else     if Assigned(FError) then FError(Self);    FThread := nil;  end;

но FTResult всегда у меня получается false... поэтому событие не происходит... ищю глюк...
Добавлено @ 22:18
упёрся пока в процедуре
procedure THTTPGetThread.Execute;
на строчке:

Код

... SetLength(FTStringResult, BytesReaded);          FTResult := BytesReaded <> 0;         end;

BytesReaded у меня = 0
поэтому и FTResult всегда false

ничего понять не могу....
BytesReaded будет больше нуля только при указании файла... как понимаю:

Код

... if not InternetReadFile(hRequest, @Data, SizeOf(Data), BytesToRead) then Break          else           if BytesToRead = 0 then Break           else            begin             if FTToFile then              BlockWrite(f, Data, BytesToRead)             else              begin               TempStr := Data;               SetLength(TempStr, BytesToRead);               FTStringResult := FTStringResult + TempStr;              end;             inc(BytesReaded, BytesToRead);             if Assigned(FTProgress) then              Synchronize(UpdateProgress);            end;         end ...

Добавлено @ 22:34
Borland_Delphi_6
если у тебя всё нормально, то попробуй так:

Код

HTTPGet.URL:=URL;  HTTPGEt.GetString;  Application.ProcessMessages; ShowMessage(Txt);

У меня-то все работает нормально, текст записывает в переменную на ура, но не во время, т.е. происходит то, что описанно выше. "Application.ProcessMessages; " не помогает

Цитата(Borland_Delphi_6 @ 14.1.2006, 23:29 )

У меня-то все работает нормально, текст записывает в переменную на ура, но не во время, т.е. происходит то, что описанно выше. "Application.ProcessMessages; " не помогает

мда... сообщение не сразу приходит.... а вот так:

Код

var   Form1: TForm1;   Txt:String;   b:boolean = true; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin HTTPGet1.URL:='http://localhost/'; HTTPGet1.GetString; while b do    Application.ProcessMessages; ShowMessage(Txt);  b:=true; end; procedure TForm1.HTTPGet1DoneString(Sender: TObject; Result: String); begin Txt:=Result; //Ýòà ÷àñòü êîäà âûïîëíÿåòñÿ óæå ïîñëå ShowMessage; Ýòî ïîêàçûâàåò è ïðàêòèêà è F8. b:=false; end;

у меня не прокатывает...т.к. у меня событие вообще не происходит... но процедура отвечающая за его запуск выполняется до ShowMessage(Txt); при таком варианте.... правда происходит задержка где-то на 1 секунду...

О! Вроде бы все работает! Задержка вроде тоже есть, но маленькая и не критичная! Спасибо!

Цитата(Borland_Delphi_6 @ 15.1.2006, 12:33 )

О! Вроде бы все работает! Задержка вроде тоже есть, но маленькая и не критичная! Спасибо!

был рад помоч
не знаю может ты уже это предусмотрел, но вот я тут подумал, что было бы неплохо предусмотреть здесь:

Код

while b do        Application.ProcessMessages;

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