Olá a todos
To usando o seguinte código para ler um arquivo BLOB, editá-lo e salvar o
arquivo
(Stream)no blob novamente.
procedure TForm1.Button2Click(Sender: TObject);
begin
STR:= TStream.Create;
STR:= ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('ARQUIVO'),
bmRead);
//Edito o arquivo
Report.SaveToStream(STR);//salvo o arquivo no TStream STR
ClientDataSet1.Edit;
TBlobField(ClientDataSet1.Fields[2]).LoadFromStream(STR);
ClientDataSet1.Post;
STR.Free;
end;
Mas quando altero o arquivo, a alteração não é gravada no BD e ainda dá erro
quando
chamo o STR.Free.
Agradeceria se alguém indicasse onde está o erro.
Grato
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< 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
