هنگ کردن هنگام کار با وب سرویس

[baradar]

با عرض سلام و خسته نباشید

من دارم روی یه برنامه پیامک کار میکنم و با وب سرویس پیامک هم به وسیله wdsl importer و کامپوننت httprio
ارتباط بر قرار میکنم و همه چیز هم درست کار میکنه و مشکلی از این بابت نیست فقط مشکلی که هست
هنگاه ارسال پیامک تا پیامک ارسال بشه کل برنامه قفل میشه من خواستم از thread استفاده کنم ولی وقتی داخل تابع execute کدها رو مینویسم اصلا برنامه کار نمیکنه هنگ نمیکنه ولی مثلا پیامک هم ارسال نمیشه انگار که کاری انجام نشده دوستان لطفا راهنمایی کنید که من چطور میتونم به وسیله این کامپوننت کار کنم طوری که فرمم هنگ نکنه و قفل نشه

با تشکر

[BORHAN TEC]

ولی وقتی داخل تابع execute کدها رو مینویسم اصلا برنامه کار نمیکنه هنگ نمیکنه ولی مثلا پیامک هم ارسال نمیشه انگار که ...
اگر امکان داره کدتون رو جهت بررسی قرار بدین.

[baradar]

اگر امکان داره کدتون رو جهت بررسی قرار بدین.


procedure baradar.execute;
var myservice:SendSoap;
var num_tel:ArrayOfString;
recid:ArrayOfLong;
status:TByteDynArray;
result:integer;
begin
inherited;
myservice:=(form3.hp as send.SendSoap );
num_tel:=Split(',','0939********') ;

result:= myservice.SendSms('****','****',num_tel,'10000112' ,'سلام',True,'',recid,status) ;
ShowMessage(result);
end;



من همین کد رو وقتی داخل رویداد یه دکمه میگذارم اجرا میشه بدون هیچ مشکلی البته در هر دو صورت مقدار برگشتی 1 هست که نشانه ارسال صحیح هست
ولی در Thread ارسال نمیشه لطفا راهنمایی نمایید

با تشکر

[baradar]

دوستان مشکل حل شد باید این کد رو ابتدای ترید قرار میدادم

CoInitializeEx(nil,0);