TÉMA:

Hi keresgéltem az sms küldésével 1 is infot de nem igazán találtam megoldást. Ezt találtam de nem küldi el az sms-t.
Nem jol adom meg a telefonszámot?

Köszi ha valakinek van infoja.


procedure TForm1.Button1Click(Sender: TObject);
begin
WyslijSMS('363086061292','jhhdhdhuuwu') ;

end;



procedure TForm1.WyslijSMS(const DestPhone, MsgSMS: WideString);
var
smsh : SMS_HANDLE;
MyAddress: sms_address_tag;
Address: SMS_ADDRESS;
Res: HResult;
tpsd: text_provider_specific_data_tag;
psmsmidMessageID: LPSMS_MESSAGE_ID;
begin
if SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, @smsh, nil) = 0 then
begin
MyAddress.smsatAddressType := SMSAT_INTERNATIONAL;
Res := SmsGetSMSC(@MyAddress);


ZeroMemory(@Address, SizeOf(Address));
Address.smsatAddressType := SMSAT_INTERNATIONAL;
Address.ptsAddress := DestPhone;


ZeroMemory(@tpsd, SizeOf(text_provider_specific_data_tag));
tpsd.psMessageClass := PS_MESSAGE_CLASS1; // Ogólnie informuję co dokładnie zrobić z SMS'em
tpsd.psReplaceOption := PSRO_NONE;
tpsd.dwHeaderDataSize := 0;
tpsd.smsaCallback.ptsAddress := '+36';


ZeroMemory(@psmsmidMessageID, SizeOf(LPSMS_MESSAGE_ID));
try
Res := SmsSendMessage(smsh, @MyAddress, Address, nil, @MsgSMS[1],
Length(MsgSMS) * 2, @tpsd, SizeOf(text_provider_specific_data_tag),
SMSDE_OPTIMAL, SMS_OPTION_DELIVERY_NONE, @psmsmidMessageID);
except

// Obsługa wyjątków jest tutaj tak rozbudowana ,że warto zajrzeć do dokumentacji i przeczytać co tam można zrobić
end;


SmsClose(smsh);
if (Res <> 0 ) then
showmessage('ecet')
else
showmessage('ok ');


end;