Forum: Netzwerke
by TurboMartin,
6. Okt 2008
Hallo, ich hab hier mal ein Beispiel gemacht, welches mit dem IE7 funktionieren sollte (beim IE8 funktionierts leider nicht, werde es dafür aber auch noch umschreiben).
Das Beispiel manipuliert den Body der zuletzt im Vordergrund gewesenen Registerkarte.
Für den IE8 muss die Zeile
wndChild := FindWindowEx(wndMain, 0, 'TabWindowClass', nil);
durch
wndChild := FindWindowEx(wndMain, 0,...
Forum: Netzwerke
by TurboMartin,
3. Okt 2008
Was funktioniert denn genau nicht? Wenn Du das mal sagst, können wir/ich dir helfen.
Forum: Netzwerke
by TurboMartin,
3. Okt 2008
htmleBodyCode.innerHTML ist ein WideString
Forum: Netzwerke
by TurboMartin,
3. Okt 2008
while iwbIE.ReadyState <> 4 do //ka ob das so jetzt richtig ist
Application.ProcessMessages;
htmldDocument := iwbIE.Document as IHtmlDocument2;
while htmldDocument.ReadyState <> 'complete' do
Application.ProcessMessages;
htmlBodyCode := htmldDocument.body;
Forum: Netzwerke
by TurboMartin,
3. Okt 2008
Für den IE könnte ich dir mit folgendem helfen:
type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; wParam: wParam; out pObject): HRESULT; stdcall;
function TfrmMain.GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;