Body.Style.Zoom

[Delphiturbo]

Hallo

um eine Webbrowser zu zoomen, sind die 2 Varianten möglich :

Delphi-Quellcode:

WebBrowser1.OleObject.Document.Body.Style.Zoom :=2;
WebBrowser1.OleObject.Document.Body.Style.Zoom :='200%';

Ich wollte den Zoomfaktor so eingeben :

Delphi-Quellcode:

var
zoom : Real;
creenwidth : Integer;
begin
creenwidth := Screen.MonitorFromWindow(Handle).Width;
zoom:= creenwidth div Form1.width;
WebBrowser1.OleObject.Document.Body.Style.Zoom :=zoom; // passiert nichts

[Brainshock]

Ich finde hier zwar keine direkte Frage, aber ich gehe mal davon aus, es bezieht sich auf das "passiert nichts" im Quellcode.
Hast du mal kontrolliert, was in zoom drinsteht? Vielleicht ist es ja 1 und es wird deshalb nichts gezoomt.

gruß,

[Delphiturbo]

Hallo

ich have "div" durch "/" ersetzt dann passiert mindestens was.
ich möchte den Webbrowser bei Navigate zoomen

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
//WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.5;
WebBrowser1.OleObject.Document.Body.Style.Zoom:='150%'; // Error aber Delphi Debuger gibt nichts über den Fehler !
end;

[DeddyH]

Zoom ist bestimmt kein String. Schalt endlich mal das ein, was zwischen Deinen Ohren sitzen sollte, sonst hilft Dir bald niemand mehr.

[Muetze1]

Zitat:

Zitat von DeddyH

Zoom ist bestimmt kein String.

Ach, und Variant ist gleich mit ausgeschlossen?

[Delphiturbo]

Vorher habe ich so versucht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
// body.Style.Zoom := '150%';
  body.Style.Zoom := 1.50;// hier kommt der Fehler ! Und wie gesagt, Delphi Debuger sagt nicht darüber !
end;

[mkinzler]

Welcher Fehler wird den angezeigt?

[DeddyH]

Zitat:

Zitat von Muetze1

Ach, und Variant ist gleich mit ausgeschlossen?

Der bringt mich langsam völlig aus dem Tritt mit seinen ständigen Zoom-Threads. :?

[Delphiturbo]

Zitat:

Zitat von mkinzler

Welcher Fehler wird den angezeigt?

Der Fehler erscheint nicht bei Kompilieren sondern wenn ich auf das Button Klicke
sehe Anhang

[sirius]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von DeddyH

Zoom ist bestimmt kein String.

Ach, und Variant ist gleich mit ausgeschlossen?

Wusste gar nicht, dass Variant die Prozentrechnung beherrscht :mrgreen:

[Sharky]

Zitat:

Zitat von Delphiturbo

...// body.Style.Zoom := '150%';
body.Style.Zoom := 1.50;// hier kommt der Fehler ! Und wie gesagt, Delphi Debuger sagt nicht darüber !
end;
[/delphi]

Ich habe beide Varianten getestet und sie laufen ohne Fehler.

Aber nicht innerhalb dieses Ereignisses

[Phoenix]

Zitat:

Zitat von Delphiturbo

sehe Anhang

Der Fehler sagt doch so ziemlich alles aus, was man wissen muss:
Es kann eine Eigenschaft nicht lesen. Also ist entweder Body oder Body.Style nicht verfügbar.

Ich würde ja mal sagen, direkt nach dem Navigieren ist der Body der Seite noch nicht geladen. Das passiert erst bei einem späteren Event.

[Sharky]

Zitat:

Zitat von Phoenix

... Ich würde ja mal sagen, direkt nach dem Navigieren ist der Body der Seite noch nicht geladen. Das passiert erst bei einem späteren Event.

Und das steht sogar ausdrücklich in der Hilfe zu diesem Ereigniss.

[Phoenix]

Zitat:

Zitat von Sharky

Und das steht sogar ausdrücklich in der Hilfe zu diesem Ereigniss.

Die hab ich grad nicht zur hand. Das war nur logisches Denken...

Äh.. heisst das dann etwa, dass Delphiturbo also erneut weder in die Hilfe geguckt noch mitgedacht hat? :wall:

[Delphiturbo]

Zitat:

Zitat von Phoenix

Ich würde ja mal sagen, direkt nach dem Navigieren ist der Body der Seite noch nicht geladen. Das passiert erst bei einem späteren Event.

Wie kann ich dann den Body vorher laden ?

[Sharky]

Zitat:

Zitat von Phoenix

...Die hab ich grad nicht zur hand. Das war nur logisches Denken...

Mal F1 gedrückt

Beschreibung
In der Ereignisbehandlungsroutine für OnNavigateComplete2 können Sie nach dem erfolgreichen Navigieren zu einer neuen Ressource bestimmte Aktionen durchführen. Das Ereignis kann bereits ausgelöst werden, bevor das Dokument vollständig heruntergeladen ist. In diesem Fall wurde aber zumindest ein Teil des Dokuments empfangen und ein Anzeigeobjekt für das Dokument erstellt.

[mkinzler]

Geladen wird er ja, du musst warten bis das passiert ist (OnDocumentComplete)

[Sharky]

Zitat:

Zitat von Delphiturbo

...Wie kann ich dann den Body vorher laden ?

Vor dem Navigieren laden? Das wäre ein guter Trick.
Aber eventuell gibt es ja ein Ereigniss das ausgelöst wird wenn das Dokument komplett geladen wurden?

[Phoenix]

Zitat:

Zitat von Delphiturbo

Wie kann ich dann den Body vorher laden ?

Was an

Zitat:

Zitat von Phoenix

Das passiert erst bei einem späteren Event.

hast Du jetzt wieder nicht verstanden? :wall:

[Muetze1]

Zitat:

Zitat von sirius

Zitat:

Zitat von Muetze1

Zitat:

Zitat von DeddyH

Zoom ist bestimmt kein String.

Ach, und Variant ist gleich mit ausgeschlossen?

Wusste gar nicht, dass Variant die Prozentrechnung beherrscht :mrgreen:

Wie, strings kann ein Variant auch nimmer halten, oder wie? Wer sagt denn, dass das ActiveX Object nicht mit solchen Werten umgehen kann? Warum sollte das ActiveX Object nicht schauen und es entsprechend umsetzen, wenn es ein String ist und dann noch mit einem % hinten dran. Afaik konnte das ActiceX von Word dies beim Zoom auch in beiden Formen. Direkter Ordinalwert oder als Prozentangabe mit entsprechendem Prozentzeichen als Suffix.

Somit die Frage: Was findest du daran so lustig?

[Delphiturbo]

Ich bin nun fast soweit :mrgreen:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;

  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  CurWebrowser := pDisp as IWebBrowser;
  if CurWebrowser = TopWebBrowser then
   begin
  body.Style.Zoom := '100%';
end
  else
  begin
  body.Style.Zoom := '150%';
  end;
end;

Quelle : http://www.swissdelphicenter.ch/de/showcode.php?id=1355

[Phoenix]

Da läuft es einem kalt den Rücken runter wenn ich so einen Quatsch an Code sehe :roll:

[Delphiturbo]

Zitat:

Zitat von Phoenix

Da läuft es einem kalt den Rücken runter wenn ich so einen Quatsch an Code sehe :roll:

Ich habe nun den Code bearbeitet. Oder siehst Du immer noch einen Quatsch :(

[Phoenix]

Zitat:

Zitat von Delphiturbo

Ich habe nun den Code bearbeitet. Oder siehst Du immer noch einen Quatsch :(

Ja.

• Was soll die If-Abfrage gegen einen nicht initialisierten Wert?
• Wozu lässt Du die Variablendeklarationen drin wenn Du sie nicht benutzt?

[taaktaak]

Arggggg, schau dir mal TopWebbrowser an ...

[mkinzler]

Dir scheint das Grundverständnis für die Vorgänge zu fehlen.
Mit .Navigate wird das Laden angestossen. Die Fertigstellung im DocumentComplete-Event.

[Delphiturbo]

Achso
Ich habe nur die Tutorial komplett getestet. Also so natürlich :wink:

Delphi-Quellcode:

// in uses : MSHTML
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Document: OleVariant;
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  body.Style.Zoom := '150%';
end;

[Phoenix]

So langsam scheint das was zu werden.

[Delphiturbo]

Ich wollte kein neues Thema öffnen
ich möchte statt '150%' eine Variable z.B. zoom nehmen
wie soll diese Variable eingegeben werden ?
zoom = 150

Delphi-Quellcode:

...
//Body.Style.Zoom :='150%';
Body.Style.Zoom :='(Pchar(zoom) + Pchar('%'))';

[DeddyH]

Zitat:

Zitat von Delphiturbo

wie soll diese Variable eingegeben werden ?

Das frag ich mich auch. Welchen Typ soll sie denn haben?

[Delphiturbo]

Der Typ von zoom ist in diesem Fall Integer

[DeddyH]

Was bekommst Du hier angezeigt?

Delphi-Quellcode:

ShowMessage(Format('%d%%',[150]));

[Delphiturbo]

ja als Message funktioniert :

Delphi-Quellcode:

ShowMessage(Format('%d%%',[zoom])); // OK

aber so nicht:

Delphi-Quellcode:

Body.Style.Zoom :='Format('%d%%',[zoom])'; // illegal Character in InputFile : '%' ($25)

[DeddyH]

So, wo ist denn hier jetzt der Unterschied(genau hinsehen)?
1.

Delphi-Quellcode:

ShowMessage(Format('%d%%',[zoom]));

2.

Delphi-Quellcode:

ShowMessage('Format('%d%%',[zoom])');

Das war mein letzter Wink mit dem Zaunpfahl, sonst muss ich Dir den ganzen Jägerzaun um die Ohren hauen :mrgreen:

[Delphiturbo]

Der Unterschied, 1. true u. 2. false

[Medium]

An dieser Stelle falle ich komplett vom Glauben ab. Machst du das gewerblich!? Wenn ja, dann gibts ein letztes Stoßgebet für die Kunden von mir.

[mkinzler]

Ne eher die Tatsache, dass der IE keine Delphi-Funktionen versteht

[DeddyH]

Zitat:

Zitat von DelphiTurbo

Der Unterschied, 1. true u. 2. false

:shock: wie bitte?

[Phoenix]

:wall:

Delphiturbo. Ich weiss nicht wie ich das jetzt ausdrücken soll, ohne Dir zu Nahe zu treten.

Ich bin einfach ehrlich:

Du wirst nie im Leben auch nur ein Stück Quellcode selber schreiben können, das auch nur Ansatzweise das tut, was Du von dem Code erwartest. Du kannst ja noch nichtmal Strings Escapen, und das ist nun wirklich so ziemlich das allereinfachste was es gibt.

Tu Dir (und uns allen) einen Gefallen und geb das Programmieren auf. Du bist wirklich nicht dafür geeignet. Glaub es uns einfach. Das hat so keinen taug.

[rollstuhlfahrer]

Zitat:

Zitat von Delphiturbo

Der Unterschied, 1. true u. 2. false

Da kann nirgendwo ein boolischer Wert rauskommen, da keine Funktion vorahanden ist, die boolische Werte zurückgeben kann. Mach den ganzen Krempel nochmal und achte auf die Ausgabe (das was du sehen solltest).

rollstuhlfahrer

EDIT: Der rote Kasten hat jetzt auch bei mir mal Urlaub gehabt