vc ou a empresa pra quem desenvolvei tem que comprar um certificado ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com ---------------------------------------------------------------------------------------- ________________________________ De: Willian Jhonnes L. dos Santos <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 2 de Dezembro de 2008 17:35:52 Assunto: [delphi-br] Problemas com WebService Datasul Boa tarde a todos... Estou tendo problemas para enviar arquivos XML para um WebService da Datasul. Com uma ferramenta exemplo desenvolvida em Java pelo pessoal da Datasul o arquivo é enviado perfeitamente. Já usando o componente HTTPRIO, ele retorna um erro de "mensagem não assinada". Quem tiver alguma idéia ou já tenha trabalhado com os WebServices da Datasul e puder ajudar, eu agradeceria muito. Seguem abaixo o código da unit e do dfm responsáveis pelo envio do XML. //Código da Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient, SOAPDomConv, OPToSOAPDomConv, WSDLIntf, SOAPPasInv, SOAPHTTPPasInv, DB, DBClient, SOAPConn; type TForm1 = class(TForm) HTTPRIO1: THTTPRIO; OpenDialog1: TOpenDialog; Button1: TButton; Edit1: TEdit; Button2: TButton; Label1: TLabel; OPToSoapDomConvert1 : TOPToSoapDomConvert ; procedure Button2Click( Sender: TObject); procedure percorreArquivoText o ( nomeDoArquivo: String ); procedure Button1Click( Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Texto : TStringList; implementation uses ComObj, EaiWebService1; {$R *.dfm} procedure TForm1.Button2Click (Sender: TObject); var Servico : EaiWebService; begin if Edit1.Text <> '' then begin servico := httPrio1 as EaiWebService; Texto := TStringList. Create; Texto.Clear; percorreArquivoText o(Edit1.Text) ; texto.Text := UTF8Encode(StringRe place(StringRepl ace(texto. Text, #13, '', [rfReplaceAll] ), #10, '', [rfReplaceAll] )); Label1.Caption := UTF8Decode(Servico. sendMessage( Texto.Text) ); ShowMessage( Label1.Caption) ; end; end; procedure TForm1.percorreArqu ivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i : integer; begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); linha := StringReplace( StringReplace( linha, #13, '', [rfReplaceAll] ), #10, '', [rfReplaceAll] ); while not Eof ( arq ) do begin Texto.Add(trim( linha)); ReadLn ( arq, linha ); linha := StringReplace( StringReplace( linha, #13, '', [rfReplaceAll] ), #10, '', [rfReplaceAll] ); end; CloseFile ( arq ); end; procedure TForm1.Button1Click (Sender: TObject); begin OpenDialog1. Execute; Edit1.Text := OpenDialog1. FileName; end; procedure TForm1.FormCreate( Sender: TObject); var caminho : string; begin caminho := ExtractFilePath( Application. ExeName ); caminho := caminho + 'EaiWebService. wsdl'; HTTPRIO1.WSDLLocati on := caminho; end; end. //Código do dfm object Form1: TForm1 Left = 278 Top = 200 Width = 651 Height = 483 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 168 Width = 103 Height = 24 Caption = 'RETORNO' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Button1: TButton Left = 48 Top = 80 Width = 129 Height = 25 Caption = 'carregar Arquivo XML' TabOrder = 0 OnClick = Button1Click end object Edit1: TEdit Left = 48 Top = 56 Width = 417 Height = 21 TabOrder = 1 end object Button2: TButton Left = 464 Top = 120 Width = 145 Height = 25 Caption = 'Enviar' TabOrder = 2 OnClick = Button2Click end object HTTPRIO1: THTTPRIO WSDLLocation = 'C:\Documents and Settings\Cliente\ Desktop\TESTE WEBSERVICE\EaiWe' + 'bService.wsdl' Service = 'EaiWebServiceServi ce' Port = 'EaiWebService' HTTPWebNode. Agent = 'Borland SOAP 1.2' HTTPWebNode. UseUTF8InHeader = True HTTPWebNode. InvokeOptions = [soIgnoreInvalidCer ts, soAutoCheckAccessPo intViaUDDI] Converter = OPToSoapDomConvert1 Left = 8 Top = 8 end object OpenDialog1: TOpenDialog Filter = 'XML|*.xml' Title = 'Selecione o arquivo XML' Left = 40 Top = 8 end object OPToSoapDomConvert1 : TOPToSoapDomConvert Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBod y, soUTF8InHeader, soCacheMimeResponse , soUTF8EncodeXML] Encoding = 'utf-8' Left = 120 Top = 8 end end -- ------------ --------- --------- --------- --------- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolve dor Object/Free Pascal willianjhonnes@ yahoo.com. br ------------ --------- --------- --------- --------- --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 ------------ --------- --------- --------- --------- --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom ------------ --------- --------- --------- --------- --- Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
