Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Programacion a Alto Nivel. Visual Basic, Java, delphi, etc. (Moderadores: jarexalf, Doddy)
»

[Delphi] Simple Downloader 0.1

Imprimir

Páginas: [1] Ir Abajo

Autor Tema: [Delphi] Simple Downloader 0.1 (Leído 47 veces)

Doddy

Moderator
Veterano
Mensajes: 267
Slow Mind

[Delphi] Simple Downloader 0.1

« en: Octubre 18, 2011, 10:43:51 pm »

Un simple downloader que hice en delphi

Código: No puedes ver links Registrate o Login

{
Simple downloader 0.1

Coded By Doddy H

Thanks to all forum members clubdelphi
}

unit magic;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, WinSkinData;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    SkinData1: TSkinData;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var da:TFileStream;
    rex:TStrings;
    re:string;

begin

rex:=TStringList.Create;
rex.Delimiter:='/';
rex.DelimitedText:=Edit1.Text;
re:=rex[rex.Count-1];

da:=TFileStream.Create(re,fmCreate);
try
IdHTTP1.Get(Edit1.Text,da);
finally
da.Free;
end;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
ProgressBar1.Max:=AWorkCountMax;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
ProgressBar1.Position:=AWorkCount;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
ShowMessage('File Download');
end;

end.

Una imagen del programa seria

Si quieren el proyecto + compilado lo pueden hacer de No puedes ver links Registrate o Login

En línea

No puedes ver links Registrate o Login

Imprimir

Páginas: [1] Ir Arriba

Tags:

Related Topics

		Asunto / Iniciado por	Respuestas	Último mensaje
		[Downloader] Simple Downloader ShadeHacK [Con Codigo Fuente] Iniciado por Necrófero Malware (Troyanos, virus, keylogger, stealer, rootkit, worm...)	0 Respuestas 259 Vistas	Enero 26, 2010, 01:46:05 pm por Necrófero
		[Delphi] FTP Crack 0.1 Iniciado por Doddy Programacion a Alto Nivel. Visual Basic, Java, delphi, etc.	0 Respuestas 49 Vistas	Octubre 18, 2011, 10:40:49 pm por Doddy
		[Perl] Simple Downloader 0.1 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 7 Vistas	Mayo 05, 2012, 10:09:05 pm por Doddy
		[Perl Tk] Simple Downloader 0.1 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 7 Vistas	Mayo 05, 2012, 10:10:35 pm por Doddy

SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog

Designed by Smf Personal