[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
EasyByte_TLB, ComObj,
Dialogs, StdCtrls;
type
TmyEasyRtm2HtmlDll = class(TAutoObject, RTF2HTMLv8 ) ;
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var myEasyRtm2Html : TmyEasyRtm2HtmlDll;*
strHTML : STRING;
begin
myEasyRtm2Html := TmyEasyRtm2HtmlDll.Create *;
// myEasyRtm2Html := CreateObject('EasyByte.RTF2HTMLv8') ;
// ?????????????
// soweit keine Fehlermeldung nur kann ich nicht auf die folgenden proceduren zugreifen????
// wer kann helfen - sehe den Wald vor lauter Bäumen nicht
// it works not
myEasyRtm2Html.HTML_Title := 'Test if control is loaded';
myEasyRtm2Html.DoDebug := 'no' ;
myEasyRtm2Html.HTML_Colour := 'FFAAFF' ;
Code:
myEasyRtm2Html.RTF_Text := '{\rtf1 <Hello!> \par }}' ;
myEasyRtm2Html.Generator := 'Demo 1' ;
myEasyRtm2Html.Links := 'yes' ;
myEasyRtm2Html.ConvertImages := 'no' ;
myEasyRtm2Html.CleanRTF := 'yes' ;
strHTML := myEasyRtm2Html.ConvertRTF ;
end;
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]