Cargar archivos RTF o DOC en un DBERichEdit

[nugame]

Hola:

Quisiera mover un fichero .rtf o .dot a un dberichedit pero al copiarlos me mete caracteres extraños y no hay manera.

¿Alguien sabe como podría mover al dberichedit esos tipos de ficheros?

Gracias


Perdon en el anterior tema puse rtl en vez de rtf...

[loxod]

yo he usado el siguiente codigo, pero uso un richediten vez de un dbrichedit

Código Delphi [-]

unit rtf2blob_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Db, DBTables, StdCtrls, ComCtrls,
  richedit;  

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    DataSource1: TDataSource;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure Table1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


var
  EditStream : TEditStream;  
  bs : TBlobStream;  
  L : Longint;  


//solo para cargar un archivo rtf
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (table1.state = dsInsert) or
     (table1.state = dsEdit) then
  begin
    If opendialog1.execute then
      Richedit1.Lines.LoadfromFile(opendialog1.FileName);
  end
  else
    Showmessage('El Dataset debe estar en modo de Edicion');
end;


Function MyEditStreamCallBackOut(dwCookie: Longint; pbBuff: PByte;
                              cb: Longint; var pcb: Longint): Longint; stdCall;
Begin
  bs.WriteBuffer(pbbuff^,cb);
  pcb := DWord(@L);
  result := cb;
end;


Function MyEditStreamCallBackIn(dwCookie: Longint; pbBuff: PByte;
                                cb: Longint; var pcb: Pointer): Longint; stdcall;
var
  dw : DWord;
Begin
  pcb := @cb;
  if cb > bs.Size - bs.position then
    dw := bs.Size - bs.position
  else
    dw := cb;
  if dw <> 0 then
    bs.ReadBuffer(pbbuff^,dw);
  result := 0;
  dw := bs.position;
  move(dw,pcb,sizeof(dw));
end;


//Obtiene el contenido del archivo rtf desde el campo BlobField
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  bs := TBlobStream.Create(TBlobField(table1.FieldByName('rtfBlob')),bmRead);
  try
    bs.Position := 0;
    editStream.dwCookie := SF_RTF;
    editStream.dwError := 0;
    editStream.pfnCallback := @MyEditStreamCallBackIn;
    Richedit1.Perform(EM_StreamIn,SF_RTF,DWord(@EditStream));
  finally
    bs.free;
  end;
end;

//almacena el rft en el blobfield
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  bs := TBlobStream.Create(TBlobField(table1.FieldByName('rtfBlob')),bmWrite);
  try
    editStream.dwCookie := SF_RTF;
    editStream.dwError := 0;
    editStream.pfnCallback := @MyEditStreamCallBackOut;
    Richedit1.Perform(EM_StreamOut,SF_RTF,DWord(@EditStream));
  finally
    bs.free;
  end;
end;

end.

espero que te sirva

[nugame]

Hola:

Antes de nada gracias por tu ayuda.
El ejemplo que me enviaste me procude el error 'Invalid class typecast' en la línea...
bs := TBlobStream.Create(TBlobField(table1.FieldByName('rtfBlob')),bmWrite);

El campo en la tabla de la base de datos en un blob creado asi..:

rftBlob BLOB SUB_TYPE 2 SEGMENT SIZE 1

Es decir Tamaño de segmento 1, Subtipo 2

¿Estoy creando mal el campo blob?

Gracias por todo y disculpa