Arşiv Anasayfa Açık Kaynak

Sayfalar: 1

youtubeden video indirme Gönderen: cdmesut Tarih: 24 December 2007 23:12:56
youtubeden dosya indirme proramı  + delphi kodu

clientsocket bileşeni istiyor....

download
http://tinyload.com/ZIE5Z

---

Ynt: youtubeden video indirme Gönderen: Akrep Tarih: 24 December 2007 23:31:35
İndiriliyor, lütfn bekleyiniz diyor ama hiçbirşey inmiyor... Deneyip de başaran var mı? Problem ne acaba..

---

Ynt: youtubeden video indirme Gönderen: cLaW Tarih: 25 December 2007 01:45:16
bende indiriliyor lütfen bekleyin bile demedi

---

Ynt: youtubeden video indirme Gönderen: benkeibushido Tarih: 28 January 2008 08:30:37
ama artik onuda demiyor link ölmüş :] elinde olan varsa tekrar upload edebilirmiacaba ;]

---

Ynt: youtubeden video indirme Gönderen: 3L3CTRO Tarih: 24 February 2008 20:59:23
Ben indirdim İndiremeyen arkadaşlar aşağıdaki linkten indirebilir...

http://rs255.rapidshare.com/files/78843692/download.rar

---

Ynt: youtubeden video indirme Gönderen: benkeibushido Tarih: 27 April 2008 13:44:02
companent kullanmadan

vunit MainU;

interface

uses
  Windows, Messages, SysUtils, Variants,ExtActns, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, SUIStatusBar, ExtCtrls, SUIForm, SUIButton, StdCtrls,
  SUIEdit, SUIComboBox, SUIProgressBar;

type
  TForm1 = class(TForm)
    suiForm1: TsuiForm;
    suiStatusBar1: TsuiStatusBar;
    suiButton1: TsuiButton;
    Edit1: TsuiEdit;
    Edit2: TsuiEdit;
    ProgressBar1: TsuiProgressBar;
    suiComboBox1: TsuiComboBox;
    procedure suiButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
  procedure URL_OnDownloadProgress(Sender: TDownLoadURL;
  Progress, ProgressMax: Cardinal;
  StatusCode: TURLDownloadStatus;
  StatusText: String; var Cancel: Boolean) ;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.URL_OnDownloadProgress(Sender: TDownLoadURL;
Progress, ProgressMax: Cardinal;
StatusCode: TURLDownloadStatus;
StatusText: String; var Cancel: Boolean);

begin
ProgressBar1.Max:= ProgressMax;
ProgressBar1.Position:= Progress;
Application.ProcessMessages;
Caption := FormatFloat('#,###',Progress) + ' byte / ' + FormatFloat('#,###',ProgressMax) + ' byte';
end;

procedure TForm1.suiButton1Click(Sender: TObject);
begin
with TDownloadURL.Create(self) do
try
URL:='http://www.youtubekaydet.com/indir.php?url='+edit1.Text;
FileName := Edit2.Text+suiComboBox1.Text;
OnDownloadProgress := URL_OnDownloadProgress;
ExecuteTarget(nil);
finally
Free;
end;
end;
end.

---