Entwickler-Ecke :: Thema anzeigen - Markierung einer WebSite in eine Datei Speichern !

Jagg - Di 25.11.03 19:30
Titel: Markierung einer WebSite in eine Datei Speichern !

Hallo Leute !

Ich möchte ein Programm für einen freund schreiben !
Also....
Wenn de freud in einer Website Texte Markiert,soll das Programm die Markierung erkennen und diese in eine Datei schreiben....frag mich jetzt nicht warum der freund es nicht mit copy und paste macht !
meine frage ist nur ist das möglich das mein prog die markierung erkennt ?

Anonymous - Di 25.11.03 19:37

ja ist möglich....

Wie genau könnte ich dir auch sagen aber das möchtest du ja nicht ! :-)

Gruß

ixtreme.de

Jagg - Di 25.11.03 22:04

Klar will ich das kannst du mir ees sagen bitte ????
Kannst du mir auch sagen wie ich auf die adresszeile wo ich man immer das "www" eingebe im internet explorer ?
wie greife ich darauf ???

Ich möchte den text der dann gespeichert wird in einer datei mit dem name der internetadresse versehen !

Vielen dank !

Jagg !

Anonymous - Di 25.11.03 22:14

willst du, dass er mit einem eigen geschriebenen browser oder mit dem ie surft....

mozilla weiß ich nämlich selbst nicht wie es geht...

Jagg - Di 25.11.03 22:18

mit dem internet explorer
geht das vllt mit selstart unsw ?

Anonymous - Di 25.11.03 22:20

nicht getestet!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

// uses ddeman


function URLLaden(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := '';
  //create a new DDE Client object
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Webbrowser1.OleObject.Document.Selection.type = 'Control' then
  begin
    Memo1.Text := Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName;
     Memo1.lines.savetofile(URLLaden('IExplore'));

   end
  else
  begin
    if Webbrowser1.OleObject.Document.Selection.createRange.Text = '' then
    // Nichts
  end;


end;

Anonymous - Di 25.11.03 22:22

musst webbrowser1 noch ggf an den ie anpassen!!!

gruß

ixtreme.de

Jagg - Di 25.11.03 22:25

was soll das heissen ???
anpassen ???

Jagg - Di 25.11.03 22:29

ich will doch keinen eigenen webbrowser benutzen sonder den ie und dann den markierten text speichern,wozu brauche ich dann noch eine memo box ?

Jagg - Mi 26.11.03 09:43

Also,nochmal !
Wenn ich im Internet Explorer etwas markiere,soll mein Programm den markierten Bereich in eine Datei speichern und den Namen mit der URL versehen !
Könnt ihr mir jetzt helfen ???

Jagg - Mi 26.11.03 18:32

kann mir keiner helfen ???

Jagg - Fr 28.11.03 12:35

Ich habe jetzt was gefunden aber er sagt mit eine fehlermeldung :

Quelltext

1:	WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_PROMPTUSER);

Meldung : "Versuch,ein Drop-Ziel zu widerrufen, das nicht registriert wurde !

Jagg - Fr 28.11.03 12:36

muss ihn meinem webbrowser eine seite vorhanden sein ???

Jagg - Fr 28.11.03 19:34

so ich habe es jetzt hinbekommen mit dem kopieren....
aber wie geht das wenn ich anstatt eines Webbrowsers den Browser von Microsoft benutzen will ?
Geht das mit dem Internet Explorer auch ?

Jagg