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