متد گزارش گيري از وضعيت sms ارسال شده با نرم افزار

[ariobarzan]

با سلام
از دوستان كسي از سرويس پيام كوتاه شركت كاوه نگار استفاده كرده؟
من نمونه كد كه از soap استفاده ميكنه فايل راهنماش را گرفتم ارسال sms و درخواست موجودي شار‍ژ با نمونه خودش قابل اجراست
ولي براي تعيين وضعيت و سرنوشت sms بايد حتما بريم توي پانل و بعد ID اون را پيدا كنيم بيارم توي نرم افزار دمو و اونوقت ميشه نتيجه كار را گزارش گرفت
كه البته منطقي به نظر نمياد چون هر كاربر كه پيام بفرسته را كه نميشه دسترسي پانل داد
از دوستان اگر كسي با اين شركت كار ميكنه و تجربه داره لطفا بگه چطور در زمان ارسال بتونيم ID اون را بدست بياريم؟
ضمنا توي سايت شركت مربوطه هم مطرح كردم هنوز جواب ندادن و من هم عجله دارم
ممنون

[Mask]

خروجی تابع sendsms یه مقدار از نوع عددی به اسم resid هست که با اون باید مقدار دلیوری رو بررسی کنید.

[ariobarzan]

این نمونه کدی هست که توی دموی خودش هست





procedure TFrmSMS.BitBtn1Click(Sender: TObject);
var
rv1Soap :v1Soap;
Res :ArrayOfLong;

Fapikey : WideString;
Fsender : WideString;
Fmessage_: String;
Freceptor: ArrayOfString;
Funixdate: Int64;
Fmsgmode : Integer;
Fstatus : Integer;
Fstatusmessage: WideString;

rMemo :Integer;
I :Integer;
begin
(Sender as TBitBtn).Enabled:=False;
rMemo:=Memo1.Lines.Add('ÏÑÍÇá ÇÑÓÇá');

Fsender:=Trim(EditSender.Text);
Fapikey:=Trim(EditAPIKey.Text);

for I := 0 to EditMessage.Lines.Count-1 do
Fmessage_:=Fmessage_+TIdURI.URLDecode(EditMessage. Lines[I])+#13;

SetLength(Freceptor,1);
Freceptor[0]:=EditReceptor.Text;

Funixdate:=0;
Fmsgmode :=1;
Fstatus:=0;
Fstatusmessage:='';

//**********
rv1Soap:=KaveNegar.Getv1Soap(True,'',nil);
Res :=rv1Soap.SendSimpleByApikey(Fapikey, Fsender, Fmessage_, Freceptor, Funixdate, Fmsgmode, Fstatus, Fstatusmessage);
//ShowMessage((Fstatusmessage));
//**********
Memo1.Lines.Strings[rMemo]:=(format('%d %s',[Fstatus, Fstatusmessage]));
(Sender as TBitBtn).Enabled:=True;


end;




ظاهرا با چیزی که اشاره فرمودید تفاوت داره:متفکر:

[Mask]

Res :=rv1Soap.SendSimpleByApikey(Fapikey, Fsender, Fmessage_, Freceptor, Funixdate, Fmsgmode, Fstatus, Fstatusmessage);
پس این Res چیه برادر.
اما اینم بگم که واقعا کدی رو که میشه 2 خط نوشت به مزخرفترین شکل ممکن نوشته که کسی سر در نیاره.
اینم یه مدل نون خوردنه دیگه.