22-08-2012, 05:50 AM
شكرا لك على الكود
لاكن يوجد خطاء بسيط وصلحته
حيث ان الخطاء كان في هذا السطر
لاكن يوجد خطاء بسيط وصلحته
كود :
var
HTTP: TIdHTTP;
MS: TMemoryStream;
begin
HTTP := TIdHTTP.Create(nil);
MS := TMemoryStream.Create;
try
HTTP.Get('http://i3.makcdn.com/wp-content/blogs.dir//188917/files//2012/03/d984d8a7-d8a7d984d987-d8a7d984d8a7-d8a7d984d984d9876.jpg', MS);
MS.SaveToFile('D:\Tiger.jpg');
finally
HTTP.Free;
MS.Free;
end;كود :
Stream := TMemoryStream.Create;