18-03-2014, 03:41 PM
السلم عليكم
عندي مشكلة وهى انى أبحث طريقة حفظ الصورة الناتجة من المتصفح داخل ملف وهذا الملف ينتج اينما فتح البرنامج
عندي مشكلة وهى انى أبحث طريقة حفظ الصورة الناتجة من المتصفح داخل ملف وهذا الملف ينتج اينما فتح البرنامج
كود :
procedure TForm2.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 = 'GIF') or (ext = 'JPG') then
begin
p := LastDelimiter('/', Source);
dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,
Length(Source));
DownloadFile(Source, dest);
ShowMessage('image enregistre');