Beranda > Teknologi > Facebook Chat With Delphi + Source Code

Facebook Chat With Delphi + Source Code


DELPHI6Facebook chat is a simple application that created the programming language Delphi version 6.

This application is geared for the facebook users who like to interact on the Internet through chat. Users no longer need to open a browser to log in at http://www.facebook.com, because this application brings the user directly to the side of the facebook chat.

Source Code :


unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ExtCtrls, XP_Form, XP_Button, ComCtrls,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    tfXPForm1: TtfXPForm;
    tfXPButton1: TtfXPButton;
    tfXPButton2: TtfXPButton;
    WebBrowser1: TWebBrowser;
    tfXPButton3: TtfXPButton;
    procedure tfXPButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tfXPButton2Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tfXPButton1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(WideString('http://www.facebook.com/presence/popout.php'));
end;

procedure TForm1.tfXPButton2Click(Sender: TObject);
begin
showmessage('Thank you for using this program, find another project in http://widakdo.web.id/');
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
tfxpbutton3.Caption:='Please Wait, Transfering Data From Facebook...';
tfxpbutton3.Colors.BackColor:=clred;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
tfxpbutton3.Visible:=false;
end;

end.

Download: http://widakdo.web.id/explorer/ File Name: FacebookChat.exe

screenshoot
Kategori:Teknologi
  1. November 14, 2009 pukul 10:22 am

    Minta Link Download Source codenya dong… Btw ini program pake komponen laen gak bisa minta gak…

    Tolong yah minta download link lengkap source code n dan komponennya…

    Thanks By edwar kandani

  2. Edwar Kandani
    April 27, 2010 pukul 9:26 am

    Weehhheee…he..he…Ketemu Lagi disini…
    Thanks banget yah linkx, klw bisa add aq dong di FB ID : Danjuro Kajitani.

    Punya Source Php Program Inventaris… aq butuh buat skripsi !!

    thanks so musch for U…

    • Mei 6, 2010 pukul 8:37 pm

      Petunjuk penggunaan aplikasi :
      1. export seluruh isi file inventaris.rar
      2. copy-kan folder inventaris ke dalam folder DocumentRoot anda (def : htdocs)
      3. jalankan service apache dan mysql
      4. buatlah database inventaris
      5. import tabel dari file inventaris.sql yang sudah di export sebelumnya dari file *.zip
      6. buka browser IE anda kemudian ketikan url localhost/inventaris
      7. login menggunakan user admin dan pass admin

      Download source Code

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: