witam !!!
mam taka zagadke:
mam zrobiony plugin do ie w delphi chcialbym zeby program wstrzymywal ladowanie sie strony zanim w zrodlach jej nie znajdzie np wpisu <font color="green"></span>. i teraz jeżeli go znajdzie to żeby ją otworzyl a jeżeli nie to żeby wywalil np <font color="blue">showmessage ('brak wstepu');</span>.
czy to sie da w ogóle zrobic w delphi moze macie jakies pomysly w C++?
Powiedz czy masz już coś zrobione i na jakiej zasadzie działa ten plugin.
na razie jeden z was podal mi kod zeby wpisywany irl byl zapisywany w pliku tekstowy to bylo cos takiego:
<font color="green">przycisk pulgina
REGEDIT4
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions{Class-ID np. 669695BC-A811-4A9D-
8CDF-BA8C795F261F}]
"ButtonText"="caption"
"Default Visible"="Yes"
"HotIcon"="ścieżka do exe,0"
"Icon"="ścieżka do exe,0"
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Exec"="ścieżka do exe"
plik reg
a w programie
Function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;
function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar('IEFrame'),nil);
worker := FindWindowEx(ie,0,'WorkerA',nil);
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);
combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
edit := FindWindowEx(combo,0,'Edit',nil);
toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32', nil);
result := GetText(edit);
end;
i wywołujesz:
np. memo1.lines.add(GetURL);
i zapsujesz do jakeigos pliku </span>
a teraz jeszcze chce dodac procedure ktora sprawdza kod zrodlowy w poszukiwaniu okreslonego ciagu znakow
ech.... To nie żaden plugin. A już myślałem...
Napisz kontrolke ActiveX opartą na interfejsach Internet Explorera i dopiero próbuj. Zajrzyj do MSDN. Ja Ci nie powiem jak to zrobić bo nie umiem.
If Pos (memo1.text,'')>=0 then.....
else showMessage('Wstęp wzbroniony');