Web sitesinden resim alma

[sako]

Arkadaşlar bir websitesindeki resmi

templates/subSilver/images/logo_phpBB.gif

yakıradaki resmi mesela imageye nasıl ekleyebilirim. Değiştiğinde programdaki de değişecek. WebBrowser ile sayfa açar gibi yukarıda yazdığım resim açıldı, ama bazı sitelerdeki resimler açılmıyor. Sebebi ne olabilir.


Kolay gelsin...

[nitro]

hemşerim aynı şeyi ben de soracaktım, sen sordun isabet oldu. cevapları ben de dört gözle bekliyorum.

[ikut]

hemşerim aynı şeyi ben de soracaktım, sen sordun isabet oldu. cevapları ben de dört gözle bekliyorum.

Şimdi web sitesinde resmin neye göre değişip değişmediğini test edeceksiniz.

Bazı resimlere gelince. ie transparan PNG dosyalarında sorunlu. detaylıca yazarsanız biraz bakalım bir daha

[celalatak]

Web sayfasının html kodunu web serverdan istediğinizde size html kodunun içinde resim dosyasının yolu gelir. Sizde bu kodu yorumlayarak (resim linklerini belirliyerek) yeni soket açıp tüm resimleri ayrı ayrı istemelisiniz.

[nitro]

mesela sitedeki resmin adı değişken olabilir. resim0001.gif'i indirir, programda internette resim00002 varsa indirir. onun tespiti kolay yani. önemli olan dosyayı indirip bilgisayara kaydetmek.

[ikut]

mesela sitedeki resmin adı değişken olabilir. resim0001.gif'i indirir, programda internette resim00002 varsa indirir. onun tespiti kolay yani. önemli olan dosyayı indirip bilgisayara kaydetmek.

procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.InputFileMode := TRUE;
NMHTTP1.Header := '.\head.txt';
NMHTTP1.Body := '.\Body.txt';
NMHTTP1.Get('http://www.compuquicksoftware.com/current.txt');
end;

indy ile nasıldı şu an hatırlamıyorum ama idhttp konponentni incele bir

Kur pogramımda vardı ama kodyanımda değil

[bluekid]

WebBrowser ile yap

[serkan]

Kod: Tümünü seç

uses 
....,UrlMon


function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
  SourceString, DestinationString: string;
begin
Timer1.Enabled:=false;
SourceString := 'http://www.websiten.com.tr/resim.bmp';
DestinationString := 'c:\program\resim.bmp';

if DownLoadInternetFile(SourceString, DestinationString) then  begin
  Image1.Picture.LoadFromFile('c:\program\resim.bmp');
  DeleteFile('c:\program\resim.bmp');
    end
  else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);

end;

[shadowmann]

Şöyle de yapılabilr. bir tane html sayfa oluşturun. Bir klasöre kaydedin. BU html de göstereceginiz resmin kaynağı olarak da örneğin delphiturkiyedeki verdiğiniz resmi gösterin. Bu html i web browserda gösterin. İşlem tamamdır.
Biraz uzun bir yol ama sorunsuz çalışıyor