internetteki resmi forma nasıl koyabilirim.

[mrmarman]

Resmin bitmap olmadığı açık olarak ifade edilmiş. zaten incelersen göreceksin aslında bir GIF dosyasıdır. GIFIMAGE untini internetten bulup yazılımına dahil et, ardından da Image1.Picture.LoadFromFile('resim.gif'); olarak çağırmayı dene. İş görecektir.

[alvin]

teşekkür ederim dediğiniz uniti buldum ve projeme ekledim fakat bu kez ben sayfayı c nin altına bmp olarak indirip ordan image nesnesine atıyordum..orada sorun bmp yi indiriyordu fakat image nesnesine atamıyordu.şimdi dediğiniz gibi, sayfayı c nin altına gif olarak kaydedip image ye atmak istiyorum ama daha sayfayı gif olarak kaydetmede hata alıyorum..(örneğin http://tckimlik.nvi.gov.tr/Web/KPSImage ... Torv0Jo%3d sayfasındaki gif i c ye gif olarak nasıl kaydedebilirim??) çünkü bmp kaydederken hata almıyordum..biraz çorba yaptım ama bende çorba oldum yani

[alvin]

tamam yaa sonunda oldu hamdolsun..çok teşekkür ederim.....sorun gerçektende gif olarak kayıt edemememden kaynaklanıyormuş )) şu şekilde gif olarak kaydettim, herkese faydası olması dileğiyle;

procedure DownloadFile(const Url: string;File1,File2: String; Obj:TObject);
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
Toplam, BytesRead,NumWritten: dWord;
ToF: file;
begin
Toplam:=0;
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
AssignFile(ToF, file1);
Rewrite(ToF, 1); { Record size = 1 }
repeat
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
Toplam := Toplam + BytesRead;
if assigned(Obj) and ( Obj is TLabel) then
TLabel(obj).caption := File2+' '+ FloatToStr(Toplam)+' Byte indi ' ;
BlockWrite(ToF, Buffer, BytesRead,NumWritten);
Application.ProcessMessages;
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
CloseFile(ToF);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', [Url]);

InternetCloseHandle(NetHandle);
end
else
{ NetHandle is not valid. Raise an exception }
raise Exception.Create('Unable to initialize Wininet');
end;

function gy_chr39(v:string): string;
begin
result := chr(39)+v+chr(39);
end;

DownloadFile(s2,'c:\KPSImages.gif','Dosya Boyutu:',Label1); herkese hayırlı çalışmalar....

[Lord_Ares]

hocam, konuyu yeni inceleme şansım oldu, fakat rapid linki uçmuş. verdiğiniz örnek duruyorsa tekrar koyma şansınız varmı. Yoksada canınız sağolsun. teşekkürler