Kode ?

Prøv dette: http://www.swissdelphicenter.ch/torry/showcode.php?id=1096

andre ?

izemate>> Dur det ikke eller...?

tja jeg er en meget newbi og kan ikke lige helt gennemskue koden..

Du tilføjer bare ActiveX til uses (øverst i din kode), og indsætter den procedure der kalder WB_loadHTML lige efter implementation. Så kan du frit kalde WB_loadHTML( [den webbrowser koden skal vises i], [streng med kode] );

F.eks. WB_loadHTML(WebBrowser1, RichEdit1.text);

(der kalder = de kalder)

hmm jeg har forstået det med ActiveX men det forvirre lidt det med Procedure..
skal jeg bare tilføje WB_loadHTML i proceduren ? ex. procedure WB_loadHTML ?

og hvad skal skal browseren så hedde WB-loadHTML ?


så det ser sådan her ud


users
ActiveX



Type
WB_loadHTML eller
WB_loadHTML(WebBrowser1, RichEdit1.text);

?

okay prøver på en anden måde..
Hvis du havde en browser (webBrowser1) og et RichEdit1 felt.. hvordan ville du så få webbrowser til at vise kode fra RichEdit1 feltet ?

<\\izemate

Her er et komplet eksempel med en TWebbrowser, en TButton og en TRichEdit:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls, ActiveX, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
  Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB_loadHTML(WebBrowser1, RichEdit1.text);
end;

end.

hmm jeg får fejl ved IPersistStreamInit

Så har du nok glemt at tilføje ActiveX til uses.

nix

ups kom til at acceptere :\ når men det kan jo være det virker på et tidspunk ;)

Hvilken version af Delphi bruger du?

Delphi 6.0 Personal

Ja så må jeg indrømme at jeg ikke kan se hvad problemet er. Har du prøvet at oprette en ny applikation og så overskrive med HELE den kode jeg cut'n'pastede tidligere?

YES SIR ! nu virker det bare :) jeg har lige et spm hvis det er okay?

Når jeg vil havde det vist så smider jeg den på i en align:= alclient; og når jeg vil se kilde kode vi jeg bruge webbrowser1.visible:=flase; men det virker har du nogen ide om hvordan jeg kan gør sådan at man ser browseren når man trykker på en knap og "fjerner" den igen når man trykker på en anden knap ?

lige meget.. har fundet ud af det.. man skulle bare sætte den til align:= alCustom; også sætte den til højde 1 og width 1 :) men tusind tak for hjælpen !!

Var så lidt