call to SOAP not work

[staff@ergosoft.it]

HI,

I need to call a function on a SOAP server. this is the code. I receive an error as a response ('' is not valid integer value) - error delphi. - look at the WSDL attachment imported from delphi

thanks
Alessandro Romano

this is the procedure:

Code:

var
  sDProt : AggiuntaRequestData;
  sRisposta : AggiuntaResponseData;
  ArraybyteSOAP, FileArrayByteSOAP : TByteSOAPArray;
  Base64: TBase64Encoding;
  TFilePrincipale : FileType;
  s : string;
begin
  // creo strutture
  sDprot := AggiuntaRequestData.Create;
  sRisposta := AggiuntaResponseData.Create;
  TFilePrincipale := FileType.Create;
  // ******

  // operatore e password
  sDprot.operatore := 'XXX';
  sDprot.password := 'YYY';
  // ******

  // file principale - Encoded in BASE64 e poi convertito in TByteSOAPArray
  FileArrayByteSOAP := TByteSOAPArray(TEncoding.UTF8.GetBytes(EncodeFile('c:\temp\prova1.pdf')));
  TFilePrincipale.NomeFile := 'prova1.pdf';
  TFilePrincipale.CidFile := FileArrayByteSOAP;

  // assegno struttura creata
  sDProt.filePrincipale := TFilePrincipale;
  // ****

  // segnature - Encoded in BASE64 e poi convertito in TByteSOAPArray
  s := EParametro.Text;
  Base64 := TBase64Encoding.Create;
  // converto in base64
  s := Base64.Encode(s);
  // converto in TByteSOAPArray
  ArraybyteSOAP := TByteSOAPArray(TEncoding.UTF8.GetBytes(s));

  sDProt.segnatura := ArraybyteSOAP;
  //******

  // chiamata al soap per nuovo protocollo - qui avviene errore su NuovoProtocollo
  sRisposta := (HTTPRIO1 as filedepot).NuovoProtocollo(sDProt); // <- ERROR


  // lettura eventuale risposta risposta
  Memo2.Lines.Add('Anno: ' +sRisposta.anno.ToString );
  Memo2.Lines.Add('Protocollo: ' + sRisposta.numero.ToString);
  Memo2.Lines.Add('Identificativo: ' + sRisposta.idProto.ToString);
  Memo2.Lines.Add('CodErrore: '+ sRisposta.coderrore.ToString);
  Memo2.Lines.Add('DescErrore: ' + sRisposta.deserrore);

  // free strutture
  sDProt.Free;
  sRisposta.Free;
  TFilePrincipale.Free;
  Base64.Free;