[firebase-br] [OFF TOPIC] - Transporte de Arquivos via Webservice - Delphi

[Frederico Godoi]

Gustavo, talvez eu precise sair pra essa solução mesmo.

Gladiston, eu preciso fazer o "upload" do arquivo meu amigo.
A classe que o Delphi declarou importando o WSDL ficou assim, o parâmetro
"arquivo" que uso para fazer o upload é do tipo

faseArquivo = class(TRemotable)
  published
    property nome:       string         Index (IS_OPTN or IS_UNQL) read
Fnome write Setnome stored nome_Specified;
    property arquivo:    TByteDynArray  Index (IS_OPTN or IS_UNQL) read
Farquivo write Setarquivo stored arquivo_Specified;
    property observacao: string         Index (IS_OPTN or IS_UNQL) read
Fobservacao write Setobservacao stored observacao_Specified;
  end;

Essa propriedade arquivo, preciso passar um TByteDynArray.
Quando apenas abro um arquivo local ( pdf por exemplo) como TStream,
condifico para padrão 64, fica tudo certo.
Quando converto de String para TByteDynArray e faço o upload, dá problema
pra ler esse arquivo. Ele não é convertido de volta.

Frederico



2014-08-06 12:07 GMT-03:00 Gladiston Santana <gladiston em vidy.com.br>:

> Não seria analogo ao StringDynArray?
> Eu consumia um base de dados de cep (webservice) assim:
> var
>   ObjICEP:CEPServicePort; // acessar os métodos disponíveis
>   sStringDynArray:TStringDynArray; // unit types
>   sEndereco:String;
> begin
>   ObjICEP:=GetCEPServicePort(); // escutando o serviço
>   sEndereco :=ObjICEP.obterLogradouroAuth(EDTcEP.Text, 'usuario','senha');
>   sStringDynArray:=SplitString(sEndereco,','); //unit StrUtils
>   edtRua.Text:=sStringDynArray[0];
>   edtBairro.Text:=sStringDynArray[1];
>   edtCidade.Text:=sStringDynArray[2];
>   edtUF.Text:=sStringDynArray[3];
> (...)
> Depois fiz meu próprio banco de dados de cep e descontinuei, mas o exemplo
> acima era bem funcional.
>
>
>
> Em 6 de agosto de 2014 11:38, Frederico Godoi <frederico.godoi em gmail.com>
> escreveu:
>
> > Amigos, alguém já fez transporte de arquivos via serviço webservice com
> > Delphi ?
> > Caso alguém já tenha feito com sucesso e puder ajudar, eu mando e-mail
> > direto para não ficar gerando assunto fora da Lista.
> >
> > Eu estou "consumindo" um webservice.
> > Fiz a importação do WSDL e o Delphi gerou todas as classes.
> >
> > Para consumir o serviço de upload de arquivo eu devo transformar em
> arquivo
> > em base64 e enviar. Porém o delphi criou o tipo TBytedimarray para
> enviar.
> >
> > Eu transformo o arquivo em uma base64 tranquilo, com o Indy. Mas quando
> > transformo em Tbytedimarrray e faço o upload o arquivo não consegue ser
> > convertido de volta.
> >
> > Alguém da lista já passou por isso ?
> >
> > Obrigado e desculpem o off topic.
> >
> > --
> > Frederico Godoi
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
>
>
>
> --
> --
> B em B@BU     iB em M@B.  B em MBBO   MBBMMB em B@BZLr    E@@@@i      r@@@BU
> vB em M@O     E em B@Bu   BBBM em 0   G em MMM@N8MBB em ZP5r  B em B@k      8B@@O
>  OB em B@q   2 em BBBM    B em B@BO   BB em B@B,.:,7B em B@@L uB em B@,    OB em B@.
>  ,@@@B@   @BBB@,    @BBB em 8   M em M@@@     PB em B@B  @@@BN   iB em B@L
>   U em B@B2 LB em B@X     B em MBBO   MBBM em B     i em BBB@. 7 em B@Bi  B em B@E
>    B@@@BiM em M@B.     @BBM em G   M em MMB@     v@@M em B,  G em B@Z v em B@B.
>    7B em B@O em B@B5      B em B@B8   BBBM em B     Z@@@B@   iB@@@2 em B@Br
>     NB em M@B em B8       @B em B@8   M em B@B em i:i75 em B@B em r    E@@B em B@Bq
>     . em B@@@B@:       B em B@B@   @B@@@B em B@B@@@ME;     .BB em MBB@
>      55.ANOS        OMOGBS   PBZGGOOMOO117,        7 em BBB@r
>      ==============================================r@@@@F=====
>      Gladiston Santana                             8 em B@B,
>      Supervisor de TI                             G em B@B7
>      Tel.:+551147873122 R:228                    :@B em B0
>      Grupo VIDY - SGQ ISO9001 - 55 ANOS          @B em B@.
>      Visite nosso site: www·vidy·com·br         BB@@@u
>      Visite também : www·expolabor·com·br      GB em B@N
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Frederico Godoi