Author Topic: problem USSD command using nrGSM  (Read 677 times)

alegularte

  • Newbie
  • *
  • Posts: 7
    • View Profile
problem USSD command using nrGSM
« on: August 25, 2014, 07:42:45 pm »
Hi,

return msg "ERROR" command using nrGSM:

procedure TfrmdirectSMSSend.nrComm1AfterReceive(Com: TObject;
  Buffer: Pointer; Received: Cardinal);
var
  rcv :  AnsiString;
  i : Integer;
begin
  if (vSaldo) then begin
   for i:=0 to Received-1 do
       rcv:=rcv+PAnsiChar(Buffer);
   ShowMessage('Saldo: '+rcv); //HexToBin(
   vSaldo := False;
  end;
end;

program:

Var
   S:String;
Begin
   vSaldo := True;
   nrGsm1.CmdSendAndWaitResult('AT+CUSD=1,"*544#",15'+#13);

regards,

Roman Novgorodov

  • Engineer
  • Administrator
  • Hero Member
  • *****
  • Posts: 994
  • we will win
    • View Profile
    • Forums.nrCommLib.Com
Re: problem USSD command using nrGSM
« Reply #1 on: September 05, 2014, 11:54:24 am »
Hello

Thank you for your information.

The next version of nrComm Lib (9.39 or above) contains following:

TnrGsm.SendUSSD(request:string):boolean; // method for send USSD request
TnrGsm.OnUssd(Sender:TObject; sData:string); // event for handle USSD message

Roman Novgorodov
DeepSoftware llc
DeepSoftware llc - The professional components for Delphi/CBuilder/.NET. The high quality custom software development.
Forums.nrCommLib.Com - DeepSoftware Tech Support Forum.