Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // <obterClientePorNIF_BI_Codigo>
- // <OutgoingHeaders attr0="MsgHeaderArray" isNull="false">
- // <MsgHeaderArray0>
- // <Name>SecurityToken</Name>
- // <Namespace>ns</Namespace>
- // <ItemType>SecurityToken</ItemType>
- // <Value>L9+zby7w1V5OZTVGUPLZ1>L9+zby7w1V5OZTVGUPLZ1x8rJYzCEHAnxovPx8rJYzCEHAnxovPUuyadZFdbv21elZ1qsvyp3kzbVR2s155E/Fea+8tXySxU7XfCMlut2mQ/YxvqzeQN>L9+zby7w1V5OZTVGUPLZ1x8rJYzCEHAnxovPIAc5JF99688MPfwqtehTpkDFKUhKIkShjIH9Zcv0xAHRoZ4sfc7HX</Value>
- // <Direction>Outgoing</Direction>
- // </MsgHeaderArray0>
- // </OutgoingHeaders>
- // <MethodParameters>
- // <TemMais100Registos>False</TemMais100Registos>
- // <MensagemErro isNull="false" />
- // <TemErro>False</TemErro>
- // <CompanhiaConexao>1235</CompanhiaConexao>
- // <NIF>2534525</NIF>
- // <BI isNull="false" />
- // <NomeCliente isNull="false" />
- // <Cliente isNull="false" />
- // </MethodParameters>
- //</obterClientePorNIF_BI_Codigo>
- function TSOAPCredentials.ObjectToSOAP(RootNode, ParentNode: IXMLNode; const ObjConverter: IObjConverter; const NodeName,
- NodeNamespace, ChildNamespace: InvString; ObjConvOpts: TObjectConvertOptions; out RefID: InvString): IXMLNode;
- begin
- Result := ParentNode.AddChild('Name');
- Result.Text:= Name;
- Result := ParentNode.AddChild('Namespace');
- Result.Text:= Namespace;
- Result := ParentNode.AddChild('ItemType');
- Result.Text := ItemType;
- Result := ParentNode.AddChild('value');
- Result.Text := value;
- Result := ParentNode.AddChild('Direction');
- Result.Text := Direction;
- end;
- procedure TForm3.Button3Click(Sender: TObject);
- var
- ws: IWSClientes;
- req: obterClientePorNIF_BI_Codigo;
- autent: TSOAPCredentials;
- reultado: TStringList;
- begin
- req:= obterClientePorNIF_BI_Codigo.Create;
- //resp:= obterClientePorNIF_BI_CodigoResponse.Create;
- reultado :=TStringList.Create;
- HTTPRIO1.Create(nil);
- HTTPRIO1.HTTPWebNode.Username:='user';
- HTTPRIO1.HTTPWebNode.Password:='pass';
- WS := GetIWSClientes(false, '', HTTPRIO1);
- autent := TSOAPCredentials.Create;
- autent.Name := 'SecurityToken';
- autent.Namespace := 'ns';
- autent.ItemType:='System.String';
- autent.value:= token.Text;
- autent.Direction:='Outgoing';
- HTTPRIO1.SOAPHeaders.Send(autent);
- req.CompanhiaConexao:=;
- req.NIF:='';
- req.BI:='';
- req.NomeCliente:='';
- req.Cliente:='';
- req := ws.obterClientePorNIF_BI_Codigo(req);
- //ultado :=(resp);
- // Showmessage('Numero');
- //Application.MessageBox('Operação Realizada com Sucesso!','Aviso',mb_Ok+mb_IconExclamation);
- end;`
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement