Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Prüfen, ob die Webseite schon geöffnet ist (https://www.delphipraxis.net/189940-pruefen-ob-die-webseite-schon-geoeffnet-ist.html)

strom 10. Aug 2016 10:53

Prüfen, ob die Webseite schon geöffnet ist
 
hallo,

hier mit wird eine Webseite geöffnet:

Delphi-Quellcode:
ShellExecute(Handle, 'open', 'https://test.de', nil, nil, SW_SHOWNORMAL);


We kann ich überprüfen, ob diese Seite schon geöffnet ist? Nicht, dass jedes mal ein neuer Reiter im Browser geöffnet wird!

-=ZGD=- 10. Aug 2016 11:04

AW: Prüfen, ob die Webseite schon geöffnet ist
 
Hallo.

Das birgt natürlich einige Schwierigkeiten mit den Tabs im Browser

Idee hierzu: Mögliche Lösung bei StackOverflow (für Google Chrome)

:!: Nach Selbsttest: Nicht möglich, zumindest nicht mit Chrome.

t.roller 10. Aug 2016 12:05

AW: Prüfen, ob die Webseite schon geöffnet ist
 
Stichwort: window.sessionStorage

-=ZGD=- 10. Aug 2016 12:15

AW: Prüfen, ob die Webseite schon geöffnet ist
 
Aber das ist ein Web-API-Aufruf..

t.roller 10. Aug 2016 12:26

AW: Prüfen, ob die Webseite schon geöffnet ist
 
Du kannst Deine eigene History machen:
Die Links werden AUTOMATISCH in der Listbox gespeichert.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.ddeman, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Winapi.ShellApi,
  Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Get_URL(Servicio: string): String;
var
   Cliente_DDE: TDDEClientConv;
   temp:PANSIChar;
begin
    Result := '';
    Cliente_DDE:= TDDEClientConv.Create( nil );
     with Cliente_DDE do
        begin
           SetLink( Servicio,'WWW_GetWindowInfo');
           temp := RequestData('0xFFFFFFFF');
           Result := StrPas(temp);
           StrDispose(temp);
           CloseLink;
        end;
      Cliente_DDE.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if Get_URL('IEXPLORE')<>'' then listbox1.Items.Add(Get_URL('IEXPLORE'));
if Get_URL('firefox')<>'' then listbox1.Items.Add(Get_URL('firefox'));
if Get_URL('opera')<>'' then listbox1.Items.Add(Get_URL('opera'));
for i:= listbox1.items.count-1 downto 0 do if listbox1.Items.IndexOf(listbox1.Items[i])<i then listbox1.Items.Delete(i);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz