Function GetStreamContent(S:TStream):String; Begin S.Read(Result[1],S.Size); End;
Sds, Ricardo César L. Lavor -----Mensagem original----- De: Eliza [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 30 de março de 2005 13:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] TStream oi DVJ, Vc está trabalhando com stream.... Preciso copiar o conteúdo de uma stream para uma variável txt. Como faço isso?? Eliza - Dismar Departamento de Informática DVJ escreveu: > Ola a todos > > Qual o melhor método para gravar um blob usando a TStream? > > Carrego o arquivo do DB, altero mas quando faço o update, não é > gravado no banco. > //esse é o código que uso para gravar o > //STR foi criado como variável global > var > DM: TTransactionDesc; > begin > frReport.SaveToStream(STR); > DM.TransactionID:= 100; > DM.IsolationLevel:= xilREADCOMMITTED; > SQLConnection1.StartTransaction(DM); > with SQLQuery2 do > begin > Params[0].LoadFromStream(STR, ftBlob); > Params[1].AsInteger:= ClientDataSet1.Fields[0].AsInteger; > ExecSQL(); > end; > SQLConnection1.Commit(DM); > > Depois disso, fecho a tabela, abro-a e nada da alteração que fiz. > > Alguém teria uma luz??? > > Grato pela ajuda. > > > __________________________________________________ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > > -- > <<<<< 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] ou [EMAIL PROTECTED] > > > > *Yahoo! Grupos, um serviço oferecido por:* > > * > <http://br.rd.yahoo.com/SIG=12anhh2qc/M=264105.3931087.6562589.1588051/D=brc lubs/S=2137111264:HM/EXP=1112282878/A=2361264/R=6/SIG=10v4acpp0/*http://br.s hopping.yahoo.com/>* > > > > ------------------------------------------------------------------------ > *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] > <mailto:[EMAIL PROTECTED]> > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > -- [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< 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] ou [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