Avatar billede ysubhi Nybegynder
14. januar 2001 - 10:47 Der er 25 kommentarer og
1 løsning

Hvordan får man TWebBrowser til at vise en HTML fil?

Hvordan får man en TWebBrowser til at vise en HTML fil? f.eks. C:\\Mappe\\fil.html
Avatar billede pstric Nybegynder
14. januar 2001 - 10:54 #1
  if OpenDialog1.Execute then
    WebBrowser1.Navigate(OpenDialog1.FileName);
Avatar billede ysubhi Nybegynder
14. januar 2001 - 10:57 #2
Du er bare god til det pstric...
Avatar billede blomme Nybegynder
14. januar 2001 - 11:19 #3
woooh, hvor \"svært\"
Avatar billede ysubhi Nybegynder
14. januar 2001 - 11:29 #4
Hej blomme,
Hvis du er SÅ GOD, kan du så ikke hjælpe mig med noget? du får 30 point for det. Hvis man nu har en TMemo og en TColorDialog hvordan kan man så få TColorDialog til give den valgde farve\'s HTML kode ind på TMemo? (De andre må også godt svare)
Avatar billede pstric Nybegynder
14. januar 2001 - 11:35 #5
  if ColorDialog1.Execute then
    Memo1.Text := \'<body bgcolor=\"#\' + IntToHex(ColorDialog1.Color, 6) + \'\">\';
Avatar billede pstric Nybegynder
14. januar 2001 - 11:36 #6
Kom nu blomme, hvor svært kan det være?
Avatar billede pstric Nybegynder
14. januar 2001 - 11:47 #7
Rettelse:
var
  Color: string;
begin
  if ColorDialog1.Execute then
  begin
    Color := IntToHex(ColorDialog1.Color, 6);
    Memo1.Text := \'<body bgcolor=\"#\' + Color[5] + Color[6] + Color[3] + Color[4] + Color[1] + Color[2] + \'\">\';
  end;

Så du ikke det, blomme?
Avatar billede ysubhi Nybegynder
14. januar 2001 - 12:30 #8
Nå blomme, var det svært?
Avatar billede ysubhi Nybegynder
14. januar 2001 - 12:32 #9
Pstric du fortjener hele 60 point men jeg venter lidt på blomme.
Avatar billede blomme Nybegynder
14. januar 2001 - 13:59 #10
Undskyld jeg var så sarkastisk - jeg mente det ikke og kunne godt tænke mig at undskylde over min ret spontane kommentar, som egentlig fremkom mest fordi jeg troede at ysubhi også mente sin kommentar ironisk. Sorry, folks :)))
Avatar billede blomme Nybegynder
14. januar 2001 - 14:01 #11
(desuden må jeg også lige oplyse om at jeg ikke er _så_ tit herinde, så jeg har faktisk ikke set hvad I har skrevet indtil nu)
Avatar billede pstric Nybegynder
14. januar 2001 - 14:01 #12
Det er i orden, du :))
Avatar billede pstric Nybegynder
14. januar 2001 - 14:02 #13
Og så må jeg vel også hellere undskylde.
Avatar billede pstric Nybegynder
15. januar 2001 - 21:36 #14
Nå, men skal vi ikke lukke nu?
Avatar billede ysubhi Nybegynder
18. januar 2001 - 11:26 #15
Hej pstric,
Jeg kan ikke få TWebBrowser til at virke på din måde.
  if OpenDialog1.Execute then
    WebBrowser1.Navigate(OpenDialog1.FileName);

                                (Virker ikke)
Avatar billede pstric Nybegynder
18. januar 2001 - 12:33 #16
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenDialog1.Execute then
    WebBrowser1.Navigate(OpenDialog1.FileName);
end;

end.

Det eneste, jeg har gjort her er, at lægge en TOpenDialog og en TWebBrowser på formen. Sæt også WebBrowser1\'s Align til alClient, så ser det pænere ud.

Hvis jeg trykker F9, så kører programmet og kommer op med en Open dialogboks. Her kan jeg så udvælge en html-fil på min harddisk, og så bliver den vist i browseren.

Det virker også med alle andre filer.
Avatar billede ysubhi Nybegynder
21. januar 2001 - 12:58 #17
Hej pstric,
Jeg har prøvet det men der kommer fejl, der står:

Not enough actual parameters.
Avatar billede pstric Nybegynder
21. januar 2001 - 14:00 #18
I hvilken linie? Giv mig linienummer og det, der står i linien.
Avatar billede ysubhi Nybegynder
21. januar 2001 - 15:50 #19
Linie 31:
WebBrowser1.Navigate(OpenDialog1.FileName);
Avatar billede pstric Nybegynder
21. januar 2001 - 16:13 #20
Snip fra Delphi 5 Enterprise\'s hjælp:

TWebBrowser.Navigate

Navigates to a resource identified by a path name or URL.
procedure Navigate(const URL: WideString); overload;

Prøv lige at se, om der står det samme i din hjælp.
Avatar billede ysubhi Nybegynder
21. januar 2001 - 16:14 #21
Men jeg bruger Delphi 3.
Avatar billede pstric Nybegynder
21. januar 2001 - 16:17 #22
Ja, men kig lige i hjælpen og se, om der står det samme.
Avatar billede pstric Nybegynder
21. januar 2001 - 16:31 #23
Prøv at skifte

WebBrowser1.Navigate(OpenDialog1.FileName);

ud med

WebBrowser1.Navigate(OpenDialog1.FileName, EmptyParam);
Avatar billede ysubhi Nybegynder
21. januar 2001 - 16:36 #24
Det virker heller ikke!!!
Avatar billede ysubhi Nybegynder
21. januar 2001 - 16:46 #25
Hej Pstric,
jeg har lige fundet et program der hedder D-TNT hvor man kan finde forskellige tips, og jeg fandt ud af at det er på følgene måde:
If OpenDialog1.Execute then
  WebBrowser1.OleObject.Navigate(OpenDialog1.FileName);

Hvis du er intereseret i programmet kan du finde den her:
http://www.bizzbee.co.uk/dtnt/help/download.asp
Avatar billede ysubhi Nybegynder
21. januar 2001 - 16:47 #26
Du får desværre ikke de 60 point, Pstric beklager.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester