-
Мастера помогите с паралельными потоками. Этой функцией ищу активное URL, но она не работает в паралельном потоке. Паралельный поток создается и в нем все отрабатывает кроме этой фукции. Подскажите почему?
s:=Get_URL('IExplore');
function Get_URL(Servicio: string): String; var Cliente_DDE: TDDEClientConv; temp:PChar; //<<-------------------------This is new begin Result := ''; Cliente_DDE:= TDDEClientConv.Create( nil ); with Cliente_DDE do begin SetLink( Servicio,'WWW_GetWindowInfo'); temp := RequestData('0xFFFFFFFF'); Result := StrPas(temp); StrDispose(temp); // CloseLink; end; Cliente_DDE.Free; end;
-
> Yus54 (20.05.10 05:57)
> function Get_URL(Servicio: string): String;
О.. по гишпански что-ли? А где ж DDEInitialize?
-- Regards, LVT.
|