Blob para ClipBoard.

Question

Ol� galera,como fa�o para mandar para a �rea de transfer�ncia um texto que est� em um campo blob?Se algu�m souber agrade�o desde j�....

Adriano Santos · Answer

Isso deve resolver:[quote:203236b7ac=�Copia para a mem�ria�][code:1:203236b7ac]procedure TForm1.Button2Click(Sender: TObject);begin  DBMemo1.SelectAll;  DBMemo1.CopyToClipboard;end;[/code:1:203236b7ac][/quote:203236b7ac][quote:203236b7ac=�Cola da mem�ria�][code:1:203236b7ac]procedure TForm1.Button3Click(Sender: TObject);begin  Memo1.PasteFromClipboard;end;[/code:1:203236b7ac][/quote:203236b7ac]...

Weliton Oliveira · Answer

Caro Adriano,obrigado pela sua aten��o ao responder minha d�vida.Por�m, este c�digo n�o me serviria, visto que o texto salvo no campo Blob � um documento do Word, com formata��es, tabelas, fotos, etc...coisas que o TDBMemo e o TDBRichEdit n�o exibem.O que eu preciso fazer � copiar direto do campo Blob, por exemplo:TabelaCampoBlob.Value ---> Clipboard, sem usar �intermedi�rios� como TDBMemo ou TDBRichEdit.Entendeu?De qualquer forma, mais uma vez obrigado pela sua aten��o.[/quote]...

Bruno Belchior · Answer

Voc� pode usar diretamente a �rea de transfer�ncia, utilizando um objeto do tipo [b:1616c81e83]TClipboard[/b:1616c81e83] (unit Clipbrd). Mas vale lembrar, que se a �rea de transfer�ncia for alterada, seu trabalho ser� em v�o...

procedure SetClipboard(pText: string);
var
  cb: TClipBoard;
begin
  cb := Clipboard;
  cb.AsText := pText;
end;

function GetClipboard: string;
var
  cb: TClipBoard;
begin
  cb := Clipboard;
  Result := cb.AsText;
end;

Weliton Oliveira · Answer

Bruno,o campo da minha tabela Interbase � um Blob, n�o � um string (varchar).Eu uso Stream para salvar e recuperar os dados.Entendeu?...

Bruno Belchior · Answer

mas se � o texto que est� no campo blob, como descreveu acima, ent�o a funcionalidade � a mesma......

Weliton Oliveira · Answer

Ok, Bruno.Apenas um quadrado vai para o clipboard quando uso os c�digos (isso mesmo, a forma geom�trica quadrado). Veja como eu fa�o para salvar e recuperar o Blob:Tenho em uma tabela Interbase um campo:�LAUDO� BLOB SUB_TYPE TEXT SEGMENT SIZE 80,onde guardo um texto do MS Word contendo textos, tabelas, fotos, etc.. arquivo do Word, aberto em um Ole Container. Salvo o conte�do do Ole Container usando Stream:procedure TFormResultado.SalvarBlob;var strObj : TStream;beginstrObj := DModule.QueAnato.CreateBlobStream(DModule.QueAnatoLAUDO, bmWrite);try with OLEContainer do if State <> osEmpty then SaveToStream(strObj);finally strObj.Free;end;end; E abro o conte�do do campo �LAUDO� acima usando Stream:procedure TFormResultado.LerBlob;var strObj : TStream;beginstrObj := DModule.QueAnato.CreateBlobStream(DModule.QueAnatoLAUDO, bmReadWrite);try if strObj.Size <> 0 then OLEContainer.LoadFromStream(strObj);finally strObj.Free;end;end; O QUE EU PRECISO:� jogar para o ClipBoard o conte�do do Stream aberto com �LerBlob� para fazer a impress�o. Talvez possa ser feito de outra forma..... n�o sei, mas eu preciso jogar direto para �rea de transfer�ncia, sem usar �intermedi�rios� (TDBMemo ou TDBRichEdit).Como o texto pode conter textos, tabelas, fotos, etc... n�o posso usar um TDBMemo ou TDBRichEdit (visto que eles s� exibem texto), para selecionar tudo (SelectAll) e depois copiar para a �rea de transfer�ncia. � isso a�.Grande abra�o....

Bruno Belchior · Answer

Hum coisa que poderia fazer, � ao ler, guardar a informa��o em um TMemoyStream, e posteriormente, se precisar da informa��o, ela est� no mesmo......

F�rum Blob para ClipBoard. #343832