Passar TRichEdit como parametro para uma DLL

Question

Pessoal,Estou fazendo uma dll onde eu pretendo executar o seguinte procedimento:Vou passar como paremetro para esta DLL um TRichEdit ... nesta dll eu quero pegar o texto contido no TRichEdit que eu pa...

Mmoreira · Answer

[quote:bc961cd194=�mMOREIRA�]Pessoal,Estou fazendo uma dll onde eu pretendo executar o seguinte procedimento:Vou passar como paremetro para esta DLL um TRichEdit ... nesta dll eu quero pegar o texto contido no TRichEdit que eu passei no parametro e salvar em um arquivo qualquer ... Ficaria algo parecido com isso:[quote:bc961cd194]library Email;uses  (..)procedure GravaArquivo( rRichEdit : TRichEdit ); Export;begin  rRichEdit.Lines.Add( �Inserir um texto qualquer na ultima linha� );  rRichEdit.Lines.SaveToFile( �c:temp.txt� );  end;Exports  GravaArquivo;beginend.[/quote:bc961cd194]E para usar a DLL eu faria assim, teria em minha aplica��o um TRichEdit com algum texto qualquer:[quote:bc961cd194]  (..)  GravaArquivo( RichEdit_Informacoes );  (..)[/quote:bc961cd194]Bom pessoal .. era mais ou menos isso que eu estou precisando fazer, alguem pode me dar um help ... estou tendo como retorno o seguinte erro:Access violation at address 0032326c in module �Teste.dll�. Read of address 04eb5856.Estou usando o Delphi 7Obragado pela aten��o.[/quote:bc961cd194]...

Mmoreira · Answer

Pessoal acabei descobrindo que na primeira parte da minha pergunta nao havia erro algum .... agora que passei da primeira etapa ... o que eu relamente preciso fazer � o seguinte:

library Teste;

uses
  SysUtils,
  Classes,
  ComCtrls,
  JvComponent,
  JvRichEditToHtml;

{$R *.res}

procedure GravaArquivo( rRichEdit : TRichEdit ); Export;
var
  RichToHtml : TJvRichEditToHtml;
  x : TStringList;

begin

  x := TStringList.Create;

  RichToHtml := TJvRichEditToHtml.Create(nil);
  RichToHtml.ConvertToHtmlStrings( rRichEdit, x );
  FreeAndNil( RichToHtml );

  x.SaveToFile( �html.htm� );

  FreeAndNil(x);

end;

Exports
  GravaArquivo;

begin
end.

O que eu preciso fazer?
Quero enviar um TRichEdit como parametro e transformar seu conteudo em html ... mas o seguinte erro esta sendo retornado:

Cannot assign a TTextAttributes to a TFont

Ou seja pelo que entendi ... os atributos do TRichEdit nao estao sendo enviados ... nao estao chegando na DLL ... Ser� que � isto mesmo ???
Alguem sabe como resolver ???

Mmoreira · Answer

Ainda estou tentando resolver este problema ... vou subir o post para ver se alguem me ajuda....

Martins · Answer

[quote:995df88e2a=�mMOREIRA�]Ainda estou tentando resolver este problema ... vou subir o post para ver se alguem me ajuda.[/quote:995df88e2a]Vou dar uma olhada com mais calma nesse t�pico � noite quando estarei menos atarefado.boa sorte!...

F�rum Passar TRichEdit como parametro para uma DLL #333729