procedure TForm1.Button6Click(Sender: TObject); var MyService: SendSMSSoap; //declare a service OutMsgs: ArrayOfSMSOutgoingMessage; i: integer; ke: WideString; begin MyService := HTTPRIO1 as SendSMSSoap; //create the service MyOutgoingMsg := SMSOutgoingMessage.Create; SetLength(OutMsgs, 3); for i := 0 to 2 do begin OutMsgs[i] := SMSOutgoingMessage.Create; end; i := 3; ke := 'KeySOMETHING'; // Account key OutMsgs := MyService.GetSentMessages(vari, i); end;
function GetSentMessages(const AccountKey: WideString; const MessageCount: Integer): ArrayOfSMSOutgoingMessage; stdcall;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)