Delphi 웹 사이트 인증 코드의 그림 가져오기

848 단어 imageIntegerDelphi
uses
  ActiveX,ComObj;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  OleInitialize(nil);
end;

procedure TfrmMain.DomImg2Image(wb:TWebBrowser);
var
  i:Integer;
  rang:IHTMLControlRange;
  s:string;
begin
  try
  //pic      ( )  ,         ,        
  s := (IHTMLDocument2(wb.Document).images.item('pic',EmptyParam) as IHTMLElement).getAttribute('src',0);
  //showmessage(s);
      rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as
        IHTMLControlRange;
      rang.add(IHTMLDocument2(wb.Document).images.item('pic',EmptyParam)as
        IHTMLControlElement);
      rang.execCommand('Copy',False,0);
      image1.Picture.Assign(ClipBoard);
  except
  end;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  OleUninitialize;
end;

좋은 웹페이지 즐겨찾기