TWebBrowser mit Edge - Copy/Paste Clipboard

[looseleaf]

Liebe Gemeinde!

Delphi 11 macht mich ein bissl fertig.

Wir haben eine Funktion in unserem Programm, die aus HTML Dateien markierte Texte nehmen kann und die dann in der Kartei des aufgerufenen Klienten als bestimtme Eintrag verwendet. Das haben wir bis dato mit ExecWB(OLEMCDID_COPY...) erledigt, was ja mit Edge nicht mehr exsitiert.

Übersehe ich den Wald vor lauter Bäumen oder wie schaffe ich es, den markierten Text in die Zwischenablage zu schicken bzw. den gesamten Text zu markieren?

Danke fürs Augenöffnen
Stefan

[mytbo]

Zitat:

Zitat von looseleaf (Beitrag 1524971)

Übersehe ich den Wald vor lauter Bäumen oder wie schaffe ich es, den markierten Text in die Zwischenablage zu schicken bzw. den gesamten Text zu markieren?

Im Edge-Browser mit:

• Markierten Text kopieren: Strg+C
• Gesamten Text markieren und kopieren: Strg+A und dann Strg+C

Bis bald...
Thomas

[Delphi.Narium]

STRG+C, STRG+A und STRG+C ist ja gut und schön, aber wenn man das dann mal aus 'nem Programm heraus steuern will, wie man es beim TWebBrowser mit ExecWB(OLEMCDID_COPY...) erledigen konnte? Wie geht das beim Edge?

Edge throws error "WebBrowser1.ExecWB is not a function"

Klingt irgendwie umständlich und nicht sehr effektiv, aber eventuell ist's ja ein Ansatz.

[looseleaf]

Zitat:

Zitat von mytbo (Beitrag 1524972)

Zitat:

Zitat von looseleaf (Beitrag 1524971)

Übersehe ich den Wald vor lauter Bäumen oder wie schaffe ich es, den markierten Text in die Zwischenablage zu schicken bzw. den gesamten Text zu markieren?

Im Edge-Browser mit:

• Markierten Text kopieren: Strg+C
• Gesamten Text markieren und kopieren: Strg+A und dann Strg+C

Bis bald...
Thomas

Servus Thomas!
Hab mich wohl unklar ausgedrückt: Ich meine programmatisch (wir präfingieren den Text noch mit Metadaten und tragen das ganze dann in unsere Datenbank ein, da ist ein manuelles Copy/Paste nicht brauchbar).

Kleines Edit. TEdgeBrowser würde ExecuteScript() mitbringen, wo man ein document.execCommand('Copy') machen könnte. Aber TWebBrowser (wir haben Kunden mit Windows 7 und 8 im Einsatz) hat diese Schnittstelle ja nicht. Boah, es wird eklig.

Noch ein Edit: Wie komme ich an das das FEdge-Property von TWebBrowser ran?

Stefan

[mytbo]

Zitat:

Zitat von looseleaf (Beitrag 1524979)

Ich meine programmatisch (wir präfingieren den Text noch mit Metadaten und tragen das ganze dann in unsere Datenbank ein, da ist ein manuelles Copy/Paste nicht brauchbar).

Ich würde eine Schnittstelle mit den Funktionen definieren, die ihr zur weiteren Verarbeitung benötigt. Das Browser-Control je nach Betriebssystem per Sourcecode (TWebBrowser/TEdgeBrowser) erstellen. Wenn es nicht mit Bordmittel gelöst werden muss, dann solltest du dir WebView4Delphi ansehen. Folgendes sollte reichen:

Delphi-Quellcode:

Browser.SimulateEditingCommand(ecSelectAll);
Browser.SimulateEditingCommand(ecCopy);

Mit der Funktion RetrieveHTML und dem Event OnRetrieveHTMLCompleted bekommst du auch das komplette HTML. Javascript ist eine Alternative. Je nachdem, welche Kontrolle ihr über die Seiten beim Laden habt, auch durch direkte Injektion ins HTML.

Bis bald...
Thomas

[looseleaf]

Zitat:

Noch ein Edit: Wie komme ich an das das FEdge-Property von TWebBrowser ran?

Stefan

type TMyEdge=class(TWebBrowser)
private
function MyGetEdge: TEdgeBrowser;
public
property GetEdge: TEdgeBrowser read MyGetEdge;
end;

function TMyEdge.MyGetEdge: TEdgeBrowser;
begin
Result := inherited GetEdgeInterface;
end;


Und wenn AcviteEngine=Edge ist, dann hol ich mir den und mach ein
e.ExecuteScript('document.execCommand("Copy")');

[looseleaf]

Zitat:

Zitat von mytbo (Beitrag 1524981)

Zitat:

Zitat von looseleaf (Beitrag 1524979)

Ich meine programmatisch (wir präfingieren den Text noch mit Metadaten und tragen das ganze dann in unsere Datenbank ein, da ist ein manuelles Copy/Paste nicht brauchbar).

Ich würde eine Schnittstelle mit den Funktionen definieren, die ihr zur weiteren Verarbeitung benötigt. Das Browser-Control je nach Betriebssystem per Sourcecode (TWebBrowser/TEdgeBrowser) erstellen. Wenn es nicht mit Bordmittel gelöst werden muss, dann solltest du dir WebView4Delphi ansehen. Folgendes sollte reichen:

Delphi-Quellcode:

Browser.SimulateEditingCommand(ecSelectAll);
Browser.SimulateEditingCommand(ecCopy);

Mit der Funktion RetrieveHTML und dem Event OnRetrieveHTMLCompleted bekommst du auch das komplette HTML. Javascript ist eine Alternative. Je nachdem, welche Kontrolle ihr über die Seiten beim Laden habt, auch durch direkte Injektion ins HTML.

Bis bald...
Thomas

Danke für den Hinweis, ic hschau's mir an, falls noch Probleme auftreten!

Stefan