internetteki resmi forma koyma [öneri]

[umutcanster]

"internetteki resmi forma nasıl koyabilirim."

konusunu inceledim çoğu downloadfile olayına dayanıyor...

peki internet sitesindeki resime göre webbrowseri boyutlandırsak ve sayfada sadece o captcha resmini gösterse ;
örnek : http://tr.wikipedia.org/wiki/CAPTCHA
urlunda bulunan resmin boyutunu webbrowsere göre ayarlasak ve webbrowser sadece burayı gösterse?

yani olabilirse arkadaşlar yardımcı olursa çoğumuzun sorunu olan bu problemi kaldırabiliriz.

[mrmarman]

konunun sadece ilk sayfasına bakmışsın. Diğer sayfalarına bakarsan farklı metodlar da içeriyor...

[G.Arkas]

"internetteki resmi forma nasıl koyabilirim."

konusunu inceledim çoğu downloadfile olayına dayanıyor...

peki internet sitesindeki resime göre webbrowseri boyutlandırsak ve sayfada sadece o captcha resmini gösterse ;
örnek : http://tr.wikipedia.org/wiki/CAPTCHA
urlunda bulunan resmin boyutunu webbrowsere göre ayarlasak ve webbrowser sadece burayı gösterse?

yani olabilirse arkadaşlar yardımcı olursa çoğumuzun sorunu olan bu problemi kaldırabiliriz.

Ben bu yöntemi kullanarak bu projeyi yapmıştım.Ama görsel açıdan kabus gibi oldu.Muharrem Abide böyle demişti zaten

viewtopic.php?f=12&t=25328

[G.Arkas]

Kod: Tümünü seç

procedure ScrollBrowserWindowBy(const window: IHTMLWindow2; iX:Integer; iY:Integer);
var
  index: Integer;
  oleIndex: OleVariant;
  frameDispatch: IDispatch;
  childWindow: IHTMLWindow2;
  document: IHTMLDocument2;
begin
  if Assigned(window) then
  try
    window.scrollBy(iX,iY);
    // If there are any frames then try scrolling them.
    document := window.Document as IHTMLDocument2;
    if Assigned(document) then
      for index := 1 to document.Frames.Length do
      begin
        oleIndex := index-1;
        frameDispatch := document.Frames.Item(oleIndex);
        if Assigned(frameDispatch) then
        begin
          childWindow := frameDispatch as IHTMLWindow2;
          ScrollBrowserWindowBy(childWindow,iX,iY);
        end;
      end;
  except
  on E: Exception do begin end;
  end;
  end;

var
  document: IHTMLDocument2;
begin
  document := webBrowser1.Document as IHTMLDocument2;
  if Assigned(document) then
    ScrollBrowserWindowBy(document.parentWindow,317,370);----> bu değerler alınacak görüntünün koordinatlarıdır.

Hatta ben size verdiğim örnekte yapmamıştım ama siz yapın.Webbrowserin o anki görüntüsünü çekip ekrana yansıtın.Böylece scrollbar ile oynanmasını engellemiş olursunuz.Ben daha sonradan böyle yaptım.