Webbrowser ile açtığım facebookta kişinin resimlerini indiren bir uygulama yapmaya çalışıyorum. Aşağıda webbrowserda açılan tüm resimleri alan bir kod örneği buldum. Fakat bu kod örneği facebookta malesef çalışmıyor. Sebebi ise sanırım facebooktaki resim adreslerinin farklı saklanması. Bu resimleri nasıl alabiliriz.
Kod: Tümünü seç
uses
UrlMon;
{$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);
var
k, p: Integer;
Source, dest, ext: string;
begin
for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
p := LastDelimiter('.', Source);
ext := UpperCase(Copy(Source, p + 1, Length(Source)));
if (ext = 'PNG') or (ext = 'JPG') then
begin
p := LastDelimiter('/', Source);
dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,
Length(Source));
DownloadFile(Source, dest);
end;
end;
end;
