Gönderen Konu: Resim Yükleme (internetten) (Okunma sayısı 212 defa)

oguzhan_17 · « : 01 Şubat 2012 16:51:16 »

Selam arkdaslar

Arkadaslar Forma İmage nesnesi ile resim eklesek ama resmın adresını,yolunu internetten versek
Bunu yapabılırmıyız ?

sheshman · « **Yanıtla #1 :** 01 Şubat 2012 17:04:35 »

Kod: (Unknown Language)

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;
 
procedure TForm2.cxButton2Click(Sender: TObject);
var
RSM, WM : WideString;
var
  fn,son,SourceString, DestinationString: string;
begin
son:=extractfilepath(application.exename)+'\Afisler\'+cxtextedit1.Text+'.JPG';
if FileExists(Pchar(son)) then
begin
DeleteFile(Pchar(son));
end;
fn:='c:\DNM.JPG';
SourceString := 'http://ia.media-imdb.com/images/M/'+RSM;
DestinationString := 'c:\DNM.JPG';
if DownLoadInternetFile(SourceString, DestinationString) then
begin
copyFile( PChar(fn), PChar(son) , True);
DeleteFile(Pchar(fn));
cxImage1.Picture.LoadFromFile(pchar(son));
end
else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;
 

kusura bakma kendi projemden kopyala yapıştır yaptım kod çalışıyor sadece basite indirmeye vaktim olmadı sen kendine göre düzenlersin

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Resim Yükleme (internetten) (Okunma sayısı 212 defa)

oguzhan_17

Resim Yükleme (internetten)

sheshman

Ynt: Resim Yükleme (internetten)