delphi linki çalıştıramadım

12-12-2012, 23:40:07

http://d41d.f.aclst.com/dl.php/d4aPLGrBFvQ/Ferdi%20Tayfur--Neyleyim%20Sen%20Yoksan%20E%C4%9Fer.mp3

s.a. arkadaşlar yukarıdaki kodu herhangi bir browserden deniyorum mp3ü indiriyor
ama
delphide

WebBrowser1.Navigate('http://d41d.f.aclst.com/dl.php/d4aPLGrBFvQ/Ferdi%20Tayfur--Neyleyim%20Sen%20Yoksan%20E%C4%9Fer.mp3');

şeklinde deniyorum indirmiyor yapmam gereken başka birşeymi var anlıyamadım

13-12-2012, 01:40:20

#2

DarKPeArL

dosya download bileşeni var ondan yapacaksın C++ Builder de öyle Delphide de aynıdır sanırım..

13-12-2012, 02:06:49

#3

YazilimUzmani

merhabalar,
öncelikle webbrowser da bir site aç. sonra indirmeyi dene. mesela ben şu şekilde denedim. ve indirme seçenekleri geldi. bir dene olmadı tekrar bakarız

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('www.google.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://d41d.f.aclst.com/dl.php/d4aPLGrBFvQ/Ferdi%20Tayfur--Neyleyim%20Sen%20Yoksan%20E%C4%9Fer.mp3');
end;

13-12-2012, 12:32:43

#4

tribun

hocam ben olmadı diye şöyel bir şey yaptım bu şekilde

ShellExecute(Handle, 'open', pchar(mp3), nil, nil, sw_ShowMaximized);

biraz amatörce oldu benimkisi

şimdi sizin yöntemi deniyecem.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 12:32:43 -->-> Daha önceki mesaj 12:24:53 --

YazilimUzmani adlı üyeden alıntı: mesajı görüntüle

merhabalar,
öncelikle webbrowser da bir site aç. sonra indirmeyi dene. mesela ben şu şekilde denedim. ve indirme seçenekleri geldi. bir dene olmadı tekrar bakarız

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('www.google.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://d41d.f.aclst.com/dl.php/d4aPLGrBFvQ/Ferdi%20Tayfur--Neyleyim%20Sen%20Yoksan%20E%C4%9Fer.mp3');
end;

Çok sağol hocam yönteminizi create ye atınca her mp3 için yeniden açmam gerekti bu yüzden indir panelinin açılışına attım dehşu-vahşet oldu

13-12-2012, 15:53:38

#5

anfidya

idhttp ile deneyin.

13-12-2012, 17:17:58

#6

SeRDaR406

Kimlik doğrulama veya yönetimden onay bekliyor.

WinHTTP bileşenini kullanabilirsin

Örnek vermek gerekirse:

procedure TForm1.Button1Click(Sender: TObject);
begin
winhttp1.URL := 'http://d41d.f.aclst.com/dl.php/d4aPLGrBFvQ/Ferdi%20Tayfur--Neyleyim%20Sen%20Yoksan%20E%C4%9Fer.mp3';
winhttp1.read;
end;

//Progressbar'da dosyanın indirilme durumunu göster(%?)
procedure TForm1.WinHTTP1Progress(Sender: TObject;
  const ContentType: String; DataSize, BytesRead, ElapsedTime,
  EstimatedTimeLeft: Integer; PercentsDone: Byte; TransferRate: Single;
  Stream: TStream);
begin
progressbar1.Position := percentsdone;
end;

procedure TForm1.WinHTTP1Done(Sender: TObject; const ContentType: String;
  FileSize: Integer; Stream: TStream);
  var fs:TFileStream;
begin
try
fs := TFileStream.Create('C:\xx.mp3',fmCreate);
fs.CopyFrom(stream,stream.size);
finally
fs.free;
end;
end;

13-12-2012, 23:22:53

#7

YazilimUzmani

tribun adlı üyeden alıntı: mesajı görüntüle

hocam ben olmadı diye şöyel bir şey yaptım bu şekilde

ShellExecute(Handle, 'open', pchar(mp3), nil, nil, sw_ShowMaximized);

biraz amatörce oldu benimkisi

şimdi sizin yöntemi deniyecem.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 12:32:43 -->-> Daha önceki mesaj 12:24:53 --

Çok sağol hocam yönteminizi create ye atınca her mp3 için yeniden açmam gerekti bu yüzden indir panelinin açılışına attım dehşu-vahşet oldu

Yardımcı olduysa ne mutlu. İstediğini yaptırtmak için bir çok farklı yol var. Diğer arkadaşlar da öneri sunmuşlar. Kendini geliştirmek adına onlarıda değerlendirebilirsin