Pra quê esse FIleOpen() na chamada ao Create do FileStream? Num vejo sentido
nisso! Dá pra explicar?
Sds.
>From: "Ailton Branco" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Montar Arquivo
>Date: Fri, 27 Jan 2006 12:57:30 -0000
>
>Estou recebendo um arquivo executavel de um webservice VB o arquivo
>chega transformado em um array de byte e quando chega no delphi eu
>preciso transformar ele novamente em executavel segue abaixo o
>codigo que estou fazendo mas ele gera o arquivo com tamanho Zero
>alguem pode me dar uma ajuda de como resolver.
>
>agradeço a ajuda....
>
>procedure TFPrincipal.AtualizarSistema1Click(Sender: TObject);
>Var Arquivo : TByteDynArray; {uses types}
> NomeArquivo : string;
> fs : TFileStream ;
> Contador: Integer;
>begin
> // faz a busca do arquivo no webservice
> Arquivo := GetServiceOffLineSoap(false,fPesquisa
>(vtLista,10)).requisitarArquivo();
>
> NomeArquivo := 'c:\offline\OffLine.nc' ;
> if FileExists(NomeArquivo) then
> if not DeleteFile(NomeArquivo) then
> Begin
> showmessage('Erro - Nao pode excluir o arquivo');
> exit;
> End;
> fs := TFileStream.Create(NomeArquivo,FileOpen(NomeArquivo,0));
> Contador := Length(arquivo) ;
> fs.Write(arquivo,Contador);
> fs.Free;
> fs := Nil;
>end;
>
>
>
>
>
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
