Bienvenido a Tecnohackers

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

[Delphi] URL Shorter 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Delphi] URL Shorter 0.1  (Leído 38 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Delphi] URL Shorter 0.1
« en: Febrero 06, 2012, 04:44:46 pm »
Un simple programa para simplificar URLS.

Código: No puedes ver links Registrate o Login
// URL Shorter 0.1
// Coded By Doddy H

unit url;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SkinData1: TSkinData;
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var rta:string;
begin
rta:=IdHTTP1.Get('http://tinyurl.com/api-create.php?url='+Edit1.Text);
Edit2.Text:=rta;
end;

end.

// The End ?

Una imagen 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
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
284 Vistas 		Último mensaje Julio 10, 2009, 08:15:08 pm
por alma_triste
0 Respuestas
18 Vistas 		Último mensaje Febrero 06, 2012, 04:45:45 pm
por Doddy
0 Respuestas
18 Vistas 		Último mensaje Febrero 06, 2012, 04:46:17 pm
por Doddy
0 Respuestas
19 Vistas 		Último mensaje Febrero 06, 2012, 04:48:08 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