[NEoMASTERR]

Собственно есть функция которая должна вернуть некий результат, но функция оставляет параметры в массив, и поток раз в секунду проверяет массив на наличие элементов (своеобразный стек) и выполняет запрос на сервер, полученный результат надо вернуть в ту же функцию, как?

там идет именно функция, ибо так удобней,

Есть мысль передать адрес функции в тот же массив и заставить приложение ждать результата, и потом вернуть на адрес результат, но не умею, подскажите

[NEoMASTERR]

Код из демо приложения

Код:

1 2 3 4 5 6 7

procedure TForm1.btn2Click(Sender: TObject); var   s:string; begin   s:=vk.GetUserName('41891803');  // - собсн функция   showmessage('Его зовут '+s); end;

Код компонента

Код:

1 2 3 4 5

function TVkClient.GetUserName(user_id: string;last_name:boolean=false): string; begin   // Добавляются параметры в record и в общую кучу,   //надо как то заставить приложение ждать результата end;

Код:

1 2 3 4 5

procedure TVKTHR.execute; begin   // код потока, он выполнил запрос из первого элемента массива, получил результат   // теперь надо вернуть обратно в функцию end;

[lmikle]

Значит должен быть еще один "стек", в который уже будет писать результат поток (нить), а фунция будет от туда читать.

[NumLock]

ну, как вариант, добавлять в массив помимо параметров для потока еще и указатель, куда поток будет сохранять результат (естественно функция выделяет память) и хэндл Event'а, который поток будет устанавливать в сигнальное состояние, когда выполнит запрос, а функция ожидать этот Event.
либо функция сама запускает свой поток и ждет его завершения.
но не понятно зачем вообще потоки? функция все-равно "зависнет".

[Страдалецъ]

Ну а так не устроит?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

unit Unit27;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls;   type   TLoginInfo = class    Name, Password: String;   end;     TForm27 = class(TForm)     Button1: TButton;     Timer1: TTimer;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     Logins: Array of TLoginInfo;   end;     TLogin = class(TThread)    Login: TLoginInfo;    constructor Create(Login: TLoginInfo);    procedure Execute; override;   end;   var   Form27: TForm27;   implementation   Uses DBLogDlg;   {$R *.dfm}   procedure TForm27.Button1Click(Sender: TObject); begin  SetLength(Logins, Length(Logins) + 1);  Logins[High(Logins)] := TLoginInfo.Create;  with TLogin.Create(Logins[High(Logins)]) do Resume; end;   { TLogin }   constructor TLogin.Create(Login: TLoginInfo); begin  inherited Create(False);  Self.Login := Login; end;   procedure TLogin.Execute; begin  inherited;  LoginDialog('Login', Login.Name, Login.Password) end;   procedure TForm27.Timer1Timer(Sender: TObject); Var i: Integer; begin  Memo1.Clear;  for i := 0 to Length(Logins) - 1  do Memo1.Lines.Add(Format('Name: %s Password: %s', [Logins[i].Name, Logins[i].Password])); end;   end.