Использование потока в dll

[Mr.Dmitry]

Нужно вызвать из dll поток. Обработать в нем данные и вернуть в основной модуль программы.


Вот какая dll получилась

PHP код:

library proc;

uses
  ShareMem,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdHTTP,
  StdCtrls,
  IdURI,
  IdMultipartFormData,
  ExtCtrls,
  ComCtrls,
  Unit1 in 'Unit1.pas';

{$R *.res}


function card_info(http, action, key, cardid:string):mytype; stdcall; export;
var
  NewThread: cards_info;
begin
  NewThread := cards_info.Create(True);
  NewThread.FreeOnTerminate := True;
  try
    NewThread.http_thread := http;
    NewThread.action_thread := action;
    NewThread.key_thread := key;
    NewThread.cardid_thread := cardid;
    NewThread.Priority:=tpLower;
    NewThread.resume;
  except on EConvertError do
    begin
      NewThread.Free;
      result.succes:='0';
    end;
  end;
  Result:=res;
end;


Exports card_info;

begin

end. 


Тут собственно вызывается поток.

PHP код:

unit query_thread;

interface

uses  
  Classes,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdHTTP,
  StdCtrls,
  IdURI,
  IdMultipartFormData,
  ExtCtrls,
  ComCtrls,
  Unit1,
  nativexml;

type
  cards_info = class(TThread)
  private
     fhttp_thread:string;
     faction_thread:string;
     fkey_thread:string;
     fcardid_thread:string;
  protected
    procedure card_info;
    procedure Execute; override;
  public
     property http_thread: string write fhttp_thread;
     property action_thread: string write faction_thread;
     property key_thread: string write fkey_thread;
     property cardid_thread: string write fcardid_thread;
     Constructor Create; overload;   // Этот конструктор использует умолчания
  end;

procedure cards_info.card_info;
var
data: TIdMultiPartFormDataStream;
xml_string:UTF8String;
IdHTTP1: TIdHTTP;
XMLDoc: TNativeXml; //объект XML-документа
NodeList: TXmlNodeList;//список узлов
begin
IdHTTP1 := TIdHTTP.Create;
  data := TIdMultiPartFormDataStream.Create;

    url:=fhttp_thread+'action='+faction_thread+'&session_key=' + fkey_thread +
          '&card='+fcardid_thread+sms;
   xml_string := UTF8Encode(IdHTTP1.Get(url));
    end;
     finally
   data.Free;
  end;

  XMLDoc:=TNativeXml.Create;//создаем экземпляр класса

  XMLDoc.ReadFromString(xml_string);

  if XMLDoc.IsEmpty then
    raise Exception.Create('Пустой XML! Работа прервана!');
   NodeList:=TXmlNodeList.Create;
   XMLDoc.Root.FindNodes('balance',NodeList);//получаем список узлов Item
  res.balance := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('name',NodeList);//получаем список узлов Item
  res.name := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('surname',NodeList);//получаем список узлов Item
  res.surname := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('patronymic',NodeList);//получаем список узлов Item
  res.pat := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('bonus',NodeList);//получаем список узлов Item
  res.bonus := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('lastdate',NodeList);//получаем список узлов Item
  res.last := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('regdate',NodeList);//получаем список узлов Item
  res.reg := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('birth',NodeList);//получаем список узлов Item
  res.birth := NodeList.items[0].ValueAsUnicodeString;
  XMLDoc.Root.FindNodes('success',NodeList);//получаем список узлов Item
  res.succes := NodeList.items[0].ValueAsUnicodeString;
   end;

procedure cards_info.Execute;
begin
 card_info;
end; 


Тут обрабатывается сам поток

PHP код:

unit Unit1;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls,
  ComCtrls;

 type mytype=record
   balance, name, surname, pat, bonus, last, reg, birth, succes, test:string;
  end;

var
res:mytype;

implementation
end. 


Только не смейтесь. Этот модуль служит для связи основного модуля библиотеки и потока. Долго ломал голову как передать данные из mytype в основную функцию библиотеки, в итоге додумался до такого варианта )

PHP код:

type
  mytype = record
    balance, name, surname, pat, bonus, last, reg, birth, succes, test: string;
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  res: mytype;
begin
  res := card_info('сайт.ру/test.php?', '323', sesion_key, '1111111');
ShowMessage(res.balance);
end; 


Вот такой вызов dll

при первом нажатии кнопки res.balance возвращается пустым. ((( При повторном возвращается то что нужно.

[Пепел Феникса]

код то не ждет пока ктото запишет данные в переменную, а при втором разе там уже есть данные от завершенного первого.

кто ж так асинхронную работу ведет?.

[Mr.Dmitry]

Сообщение от Пепел Феникса

код то не ждет пока ктото запишет данные в переменную, а при втором разе там уже есть данные от завершенного первого.

кто ж так асинхронную работу ведет?.

До этого не работал с потоками. И поэтому не знаю как нужно и как правильно.


Разве я вот так

 res.balance := NodeList.items[0].ValueAsUnicodeString;

не записываю данные в переменную?

[Mr.Dmitry]

В общем где и что мне нужно записать чтоб сразу при первом обращении мне выдавалось нужная инфа?

[Пепел Феникса]

не записываю данные в переменную?

записываете, только когда это происходит то?

вообще раз вы хотите ждать результата, то тут нет смысла в потоке.

[Mr.Dmitry]

Хмммммм. Первоночально суть вопроса была токова, как сделать чтоб во время отправки запроса через IDhttp форма не подвисала, если интернет слабый, а label выводилось сообщение "Запрос отправлен пожалуйста подождите." Мне сказали что тут без потока не обойтись. Начал разбираться с потоками, и теперь когда уже почти сделал, вы говорите что тут нет смысла в потоке? Так кому верить? Что делать?


PS Я понимаю что я записываю переменную в потоке, и это переменная не передается в основной модуль функции при первом прогоне, при втором прогоне, в перменной уже остались данные от предыдущего запуска и поэтому все выводится. Поэтому как я понимаю нужно как то синхронизировать работу функции потока с основным телом функции в dll. Но как я не пытался это сделать ни черта не выходит. На всех форумах описан элементарный способ синхронизации.

procedure cards_info.Execute; 
begin 
 synchronize(card_info); 
end;

Но это тоже не помогает

[Пепел Феникса]

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

кстати, а затем длл то для потока?

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

[Mr.Dmitry]

Тогда может вы подскажите как это делается?

Как я уже говорил первоначально в длл была функция, которая вызывалась из основной программы. Получала кучу данных и там дальше уже обрабатывались полученные данные и выводились в таблицу. Но было замечено что при слабом интернете программа подвисает. Провисания были не кретичны, но пользователем же не объяснишь что все нормально, щас все путем будет. Был начат поиск устранения такого провисания. На другом форуме сказали что без потоков не обойтись. До этого я ни когда не работал с потоками и разбираюсь с ними около одной недели, смог сделать код который описан в первом посте. Поэтому может быть ты уже ткнешь меня носом и скажешь как же нужно это сделать если не тупым присвоением? Как вернуть данные res.balance, res.name, res.surname и т.д из dll в основную форму используя поток?

PS Прикрепил файл с проектом

[Mr.Dmitry]

С исходниками стало еще тяжелее помочь? (