Webbrowser kopieren, nur über popup!

[Synonym]

Hi,


ich habe folgenden Code eingesetzt um die Kopieren Ausschneiden Funktion zu aktivieren...
Das klappt auch, sofern ich diese Funktion über das Popup aufrufe!

Sobald ich aber den zu kopierenden Text selektiere und STRG + C Drücke kopiert er nicht...

Wer kann mir helfen?

Delphi-Quellcode:

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

hab ich eingesetzt

[toms]

Probier's mal damit:

Delphi-Quellcode:

initialization
  CoInitialize(nil);
finalization
  CoUninitialize;

[Synonym]

funktioniert leider nicht...


es ist immer der alte inhalt in der zwischenablage!

[toms]

Importiere mal den Webbrowser neu:

Rufe via Menü "Komponente"|"ActiveX importieren" den Importdialog auf.

Im diesem wählen die Komponente “Microsoft Internet Controls” und danach “Installieren”.

[a.vollmer]

ich habe das selber Problem....

Unter D4 muss auch die Navigate Function so aufgerufen werden...

Delphi-Quellcode:

var
a,b,c,d : OleVariant;
begin
webbrowser1.navigate('http://www.vollmer-net.de',a,b,c,d);

Nur wie bekomm ich die Tastenkürzel Strg+C und StrG+V jetzt hin?

gruß

alex

[himitsu]

Hast du auch die OLE-Funktionen initialisiert? (OleInitialize, oder CoInitialize)


PS: Geht das nicht auch? (Du übergibst ja eh nur die URL)

Delphi-Quellcode:

WebBrowser1.Navigate('http://www.vollmer-net.de');

[a.vollmer]

ja hab die ole funktion initialisiert...


bei delphi 4 funktioniert die übergabe per

webbrowser.navigate(url);

nicht!

Gruß

Alex

[toms]

Mein Beitrag gelesen und ausprobiert?

[a.vollmer]

ja, leider ohne erfolg

[toms]

Poste mal eine Test-App + Source + MSHTML -Typelib.

[a.vollmer]

was ist denn die mshtml typelib?


hier der rest, popup funktioniert! Tastenkombi leider nicht!

Alex

[toms]

Hi,

Ich habe die Exe ausgeführt und die Tastenkombinationen funktionieren tatsächlich nicht. (Aktueller IE, Win XP)
Habe dann das Projekt unter D6 kompiliert + ausgeführt und die Tastenkombinationen funktionieren wie erwartet.

Probiere mal das:

Ersetze die SHDocVw_TLB mit jener in der Anlage. Hilft das weiter?

[himitsu]

Also deine fertig kompilierte Verson geht wirklich nicht.

Ich hab's selber noch mal kompiliert (D7) und da ging es,
allerdings mußte ich SHDocVw_TLB aus Uses entfernen, da ich diese Datei vermutlich nicht hab (wurde nicht gefunden)

Also wenn du auch mal diese Unit (SHDocVw_TLB) rausnimmst und es dann immernoch nicht läuft, dann liegt es wohl an deinem Delphi.

[a.vollmer]

toms: das funktioniert leider auch nicht...

Fehler: [Fehler] SHDocVw_TLB.pas(35): Ungültige Compileranweisung: 'WARN'

Wenn ich diese Daten rausnehme funktionierts, aber leider wieder ohne Tastenkombis!

Gruß

Alex

[a.vollmer]

wenn das alles nichts nützt würde ich den umweg über...

Delphi-Quellcode:

if Webbrowser1.OleObject.Document.Selection.createRange.Text = '' then
begin
end
else
begin
Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text
end;

zum kopieren gehen...

Doch wie kann ich STR+C für mein Programm, also diese Procedure verwalten? Alle Mühe war bis jetzt umsonst, denn es würde trotz initialisierung nie berücksichtigt!!!

Alex

[toms]

Seltsam....
Funktioniert's auch nicht mit dem TEmbeddedWB ?

[a.vollmer]

hab ich noch nicht getestet....das probier ich mal!

[a.vollmer]

ok, funktioniert!

Danke!

[toms]

Bitte! Ziehe sowieso den TEmbeddedWB gegenüber dem Webbrowser vor.
Dieser hat einige Bugs des Webbrowsers entfernt und neue Features implementiert.

[a.vollmer]

ok, werde ich tun!

nochmals danke

Gruß

Alex

[himitsu]

Versuch mal KeyPreview vom Form - und dann in OnKeyPress die Tasten abfragen (beides im OI des Form)



:shock:

Delphi-Quellcode:

if Webbrowser1.OleObject.Document.Selection.createRange.Text = '' then 
begin 
end 
else 
begin 
Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text 
end;

Sieht das nicht so viel besser aus?

Delphi-Quellcode:

if Webbrowser1.OleObject.Document.Selection.createRange.Text <> '' then 
  Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text

[F.Art]

Code:

initialization 
  OleInitialize(nil); 

finalization 
  OleUninitialize;

Diese Variante funktioniert bei mir wunder bar. Nun kann ich auch mit Str-v kopieren. Ich nutze Delphi 7 und XP mit IE 6