Доброго времени суток требуется помощь плиз как Вывести captcha.php из WebBrowser1 на фому в Image1
Делал так но нечего не получается
Code
procedure TForm1.Button3Click(Sender: TObject);
var body, imgs, controlRange: olevariant;
begin
body := WebBrowser1.OleObject.document.body;
imgs := WebBrowser1.OleObject.document.images.item(0).src='captcha/captcha-ff/captcha.php';
controlRange := body.createControlRange;
controlRange.add(imgs);
controlRange.execCommand('Copy', False, EmptyParam);
if ClipBoard.HasFormat(CF_BITMAP) then begin
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
Clipboard.Clear;
end;
end;
end.
Надо полуцит с этого сайта http://www.vip-prom.net
Code
<div class="captcha"><img id="siimage" src="captcha/captcha-ff/captcha.php" alt="" /></div>
Надеюсь найдутся профисиональные люди!!!
Зарание спасибо!