Форум на Исходниках.RU

Сохранить картинку из TWebBrowser

Бим_рекаверимоуд — Sun, 04 Feb 2018 19:34:56 +0000

Бим_рекаверимоуд: Добавьте проверку на существование Document. У меня сработало так:

if VarIsClear(WB.OleObject.Document) then

begin

{ Объект документа не существует, делать нечего }

Exit;

end;

Сохранить картинку из TWebBrowser

viterik — Sun, 04 Feb 2018 12:42:55 +0000

viterik:

Цитата Бим @ 07.05.08, 06:53

Взято с DelphiWorld и немного изменено:

uses

UrlMon;

function DownloadFile(SourceFile, DestFile: string): Boolean;

begin

try

Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,

nil) = 0;

except

Result := False;

end;

procedure SaveAllImagesToDir(const DirPath: string;

WB: TWebBrowser);

var

k, p: Integer;

Source, dest, ext: string;

egin

for k := 0 to WB.OleObject.Document.Images.Length - 1 do

begin

Source := WB.OleObject.Document.Images.Item(k).Src;

p := LastDelimiter('.', Source);

ext := UpperCase(Copy(Source, p + 1, Length(Source)));

if (ext = 'GIF') or (ext = 'JPG') or (ext = 'JPEG') then

begin

p := LastDelimiter('/', Source);

dest := DirPath + Copy(Source, p + 1, Length(Source));

DownloadFile(Source, dest);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SaveAllImagesToDir('C:\Images\', WebBrowser1);

end;

Данный код сохранит все GIF и JPEG картинки из страницы, открытой в WebBrowser1, в папку C:\Images, сохраняя исходные имена файлов. Обращаю внимание на завершающий слэш в конце пути 'C:\Images\' и на то, что папка должна существовать.

Все работает, но выдает ошибку если в TWebBrowser вообще ничего не загружено. Подскажите как предотвратить это ошибку или вывести сообщение что картинок не найдено.

Сохранить картинку из TWebBrowser

Бим — Thu, 08 May 2008 17:24:26 +0000

Бим: Повторной загрузки быть не должно. Он картинку у себя в кэше сохраняет. По крайней мере у меня так.

Вроде бы как-то можно ещё через IStream сохранять, сейчас посмотрю.

Сохранить картинку из TWebBrowser

crystalbit — Thu, 08 May 2008 11:37:52 +0000

crystalbit:

Цитата

DownloadFile(Source, dest);

эт повторная загрузка...
мне б без нее

Сохранить картинку из TWebBrowser

Бим — Wed, 07 May 2008 06:53:00 +0000

Бим: Взято с DelphiWorld и немного изменено:

uses

UrlMon;

function DownloadFile(SourceFile, DestFile: string): Boolean;

begin

try

Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,

nil) = 0;

except

Result := False;

end;

procedure SaveAllImagesToDir(const DirPath: string;

WB: TWebBrowser);

var

k, p: Integer;

Source, dest, ext: string;

egin

for k := 0 to WB.OleObject.Document.Images.Length - 1 do

begin

Source := WB.OleObject.Document.Images.Item(k).Src;

p := LastDelimiter('.', Source);

ext := UpperCase(Copy(Source, p + 1, Length(Source)));

if (ext = 'GIF') or (ext = 'JPG') or (ext = 'JPEG') then

begin

p := LastDelimiter('/', Source);

dest := DirPath + Copy(Source, p + 1, Length(Source));

DownloadFile(Source, dest);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SaveAllImagesToDir('C:\Images\', WebBrowser1);

end;

Сохранить картинку из TWebBrowser

crystalbit — Tue, 06 May 2008 13:53:55 +0000

crystalbit: я навер туплю но мне тупо на комп через дельфи

Сохранить картинку из TWebBrowser

Flanker — Tue, 06 May 2008 13:00:59 +0000

Flanker: Попробуй поработать через яву-скрипт.

Что то например.....

<script language="JavaScript">
var img=new Image();
img.src=".......";

Code

Сохранить картинку из TWebBrowser

crystalbit — Tue, 06 May 2008 11:09:18 +0000

crystalbit: значит проблема такая
загружаю в twebbrowser jpeg-картинку, надо ее просто сохранить или хотя бы поместить в stream, не загружая второй раз
загружать другими способами не надо

в поиске то что мне надо не нашел...