[scroyler]

Всем привет есть код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

uses   ExtCtrls, mshtml, OleCtrls, ClipBrd, SHDocVw, WinInet, shellapi, URLMon,   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls,JPEG;   type   TForm1 = class(TForm)     WebBrowser1: TWebBrowser;     Memo1: TMemo;     Button1: TButton;     Button2: TButton;     Image1: TImage;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure Button2Click(Sender: TObject);        type   IHTMLElementRender = interface(IUnknown)     ['{3050F669-98B5-11CF-BB82-00AA00BDCE0B}']     function DrawToDC       ( _hDC:                      HDC       ): HResult; stdcall;   end;             private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm} function DownloadFile(SourceFile, DestFile: string): Boolean; begin   try     Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;   except     Result := False;   end; end;         procedure TForm1.Button1Click(Sender: TObject); const   // URL Location   SourceFile = 'ссылка на нужную картинку';   // Where to save the file   DestFile = 'c:\temp\капча.gif'; begin   if DownloadFile(SourceFile, DestFile) then   begin     ShowMessage('Download succesful!');   end   else     ShowMessage('Error while downloading ' + SourceFile) end;

он выдерает капчу с ссылки,а как сделать так что бы он выдерал эту картинку сразу с браузера, а то капча меняется и картинки не соответствуют друг другу(

[lmikle]

Лезть в DOM в браузере и выуживать оттуда загруженную картинку.

[scroyler]

а можно на примере?

[NumLock]

поищи в моих сообщениях - недавно писал как сохранить картинки из браузера.
вот: http://www.delphisources.ru/forum/sh...6&postcount=25
кстати тема твоя)))

[scroyler]

так,то оно так,но мне надо что бы только 1 картинку сохраняло а тут все, и к тому же в ХЕ почему то не пашет(

[PhoeniX]

Сообщение от scroyler

мне надо что бы только 1 картинку сохраняло а тут все

Свободен! Ибо нефиг.

[scroyler]

=)
но я вообще без понятий как выдрать каптчу прям с браузера) поэтому и спрашиваю)

[PhoeniX]

У тебя есть код, который выдирает все изображения. Разберись, как он работает, и напиши свой, который выдирает только необходимое. Не можешь? Кругом-марш в раздел "Работа".

[scroyler]

Кто нибудь подскажитеее плззз

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

function SaveBitmaps(AWebBrowser: TWebBrowser; APath: String; AStrings: TStrings = nil): Integer; var   AHTMLDocument2: IHTMLDocument2;   i: Integer;   AHTMLImgElement: IHTMLImgElement;   AHTMLElementRender: IHTMLElementRender;   ABitmap: TBitmap;   j: Integer; begin   APath:=IncludeTrailingPathDelimiter(APath);   AHTMLDocument2:=AWebBrowser.Document as IHTMLDocument2;   Result:=AHTMLDocument2.images.length;   j:=0;   for i:=0 to Result-1 do   begin     AHTMLImgElement:=AHTMLDocument2.images.item(i, '') as IHTMLImgElement;     if (AHTMLImgElement.width>0) and (AHTMLImgElement.height>0) then     begin       AHTMLElementRender:=AHTMLImgElement as IHTMLElementRender;       ABitmap:=TBitmap.Create;       try         ABitmap.Width:=AHTMLImgElement.width;         ABitmap.Height:=AHTMLImgElement.height;         AHTMLElementRender.DrawToDC(ABitmap.Canvas.Handle);         ABitmap.SaveToFile(APath+Format('%.8d.bmp', [j]));         if AStrings<>nil then AStrings.Add(AHTMLImgElement.src);         Inc(j);       finally         ABitmap.Free;       end;     end;   end;   Result:=j; end;