Beberapa hari yang lalu, ketika melihat blog om simba serasa jadi ngiler melihat tampilan lazarus di Ubuntu yang keren banget. (Ceritanya pengen nich …. )

Walapun sudah mencoba saat lazarus masih di versi 0.9.18 beta pada distro linux Slackware, hanya yang menjadi kendala untuk belajar yaitu, tampilan GTK1-nya yang kurang mantab. Tapi, pas liat tampilan yang GTK2, wuiihhh …. jadi ngiler nich ….

Wokeh …. ceritanya mau install lazarus 0.9.22 beta nich, peralatan yang disiapkan adalah FreePascal-2.0.4, Lazarus-0.9.22 dan sekarang adalah target distro memakai Ubuntu Feisty Fawn yang seperti di skrinsyutnya om simba

Pada awalnya, tidak ada sesuatu yang aneh terjadi pada proses instalasi. Karena ubuntu based Debian jadi apabila ada depedensi yang di butuhkan, tinggal di apt-get aja … gampang kok. Nah untuk repository-nya supaya tidak terlalu jauh ke situs asalnya, gunakan repository lokal seperti di kambing.ui.edu

Ceritanya instalasi beres, dan lazarus pun sukses di jalankan. Selanjutnya adalah tinggal compile lazarus ke widgetset GTK+2, caranya tinggal pilih Tools | Configure “Build Lazarus” … lalu pada LCL Interface, pilih “gtk2″. Selanjutnya klik “Build”

Sambil menunggu proses kompilasi, saya tinggalkan dulu sebentar ….

Setelah dilihat …. jreng …. hasilnya ada : “/usr/bin/ld cannot find -lgdk_pixbuf2 Error while linking”. Hmmmm ….. apa nich error seperti ini ? padahal saya sudah install depedensi libgdk-pixbuf-2.0. Mulai pusing nich …. Masalah ini terus aja muncul sampai 2 hari … (fyuuuh … sampai sempet ganti2 distro ubuntu, mulai dari dapper sampai gutsy yang masih unstable ). Saat saya kasih status di YM “Trying to compile lazarus with GTK+2 got Error : …… “, dan ternyata ada yang nyambung juga dan yang nyambung itu adalah tiada bukan tiada lain ….. betul ….. simba. Di kasih masukkan from zero to hero .. (eh ..) masih juga belum mempan. Pussssinngggg ………….. But inget om Ulil untuk “TETAP SEMANGAT”, so saya lanjutin perjuangan untuk compile lazarus (Never Give Up) . Karena ubuntu saya udah terlanjur acak-acakan, jadi saya coba untuk install dari awal lagi.

Ubuntu Feisty Fawn fresh copy sudah ready to use , tetapi saat kompilasi, masih aja errod …. huuuh apaan sich. Usut punya usut, ternyata sekarang saya kurang depedensi :

sudo apt-get install libgtk2.0-dev
sudo apt-get install libgdk-pixbuf-dev

Got you … Nah, sekarang lazarus dengan GTK+2 sudah terinstall di Ubuntu-ku … he … he …. 3x. Ngoprek nich ngoprek

Tanggal 13 Maret 2007 kemaren gw dapet kiriman dari Semarang dan taunya eeeeehhh …. itu lho kaos Delphi-ID yang kutunggu datang juga. Tepatnya pada sore hari dia datangnya, langsung aja gw pake buat JJS dan gw pake buat tidur juga …. he … 3x

Sampai tulisan ini dibuat, tu kaos blom gw cuci … biar awet ga cepet belel ….

Sayang dong … baju kebesaran jadi lap …. kekekekekkkk ….

BTW …. skirnsyut nya blom bisa gw tampilin, lupa gw ga di jepret dulu . Ntar kapan2 gw pajang dech skrinsyut nya.

Dan yang paling menyedihkan adalah ga bisa nongkrong di tempat tongkrongan gw, ya di Delphi-ID.

Ach …. bete dech pokoknya ….

Yoo …. ada yang punya internet ga ? gw minta nich ….

type
  TDevice = record
  Name, Driver, Port: string;
  end;

var
  Devices: array of TDevice;
  DDevice: TDevice; // current default printer

Pada event OnCreate TForm, tulis skrip beriut :

procedure TForm1.FormCreate(Sender: TObject);
var
  WinIni: TIniFile;
  DevList: TStringList;
  device: string;
  i, p: integer;
begin
  WinIni := TIniFile.Create('WIN.INI'); 

// Get the current default printer
  device := WinIni.ReadString('windows', 'device', ',,');
  if device = '' then device := ',,';
  p := Pos(',', device);
  DDevice.Name := Copy(device, 1, p-1);
  device := Copy(device, p+1, Length(device)-p);
  p := Pos(',', device);
  DDevice.Driver := Copy(device, 1, p-1);
  DDevice.Port := Copy(device, p+1, Length(device)-p); 

// Get the printers list 

  DevList := TStringList.Create;
  WinIni.ReadSectionValues('Devices', DevList); 

// Store the printers list in a dynamic array
  SetLength(Devices, DevList.Count);
  for i := 0 to DevList.Count - 1 do begin
  device := DevList[i];
  p := Pos('=', device);
  Devices[i].Name := Copy(device, 1, p-1);
  device := Copy(device, p+1, Length(device)-p);
  p := Pos(',', device);
  Devices[i].Driver := Copy(device, 1, p-1);
  Devices[i].Port := Copy(device, p+1, Length(device)-p); 

// Add the printer to the ListBox 

  ListBox1.Items.Add(Devices[i].Name
    + ' (' + Devices[i].Port + ')'); 

// Is the current default printer?
  if (CompareText(Devices[i].Name, DDevice.Name) = 0) and
     (CompareText(Devices[i].Driver, DDevice.Driver) = 0) and
     (CompareText(Devices[i].Port, DDevice.Port) = 0) then
    ListBox1.ItemIndex := i;  // Make it the selected printer 

  end;
  WinIni.Free;
end;

Contoh penggunaan nya, tambakan komponen TButton dan TListBox. Pada event OnClick TButton, sisipkan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
  WinIni: TIniFile;
begin
  if ListBox1.ItemIndex = -1 then exit;
  DDevice := Devices[ListBox1.ItemIndex];
  WinIni := TIniFile.Create('WIN.INI');
  WinIni.WriteString('windows', 'device', DDevice.Name
  + ',' + DDevice.Driver + ',' + DDevice.Port);
  WinIni.Free;
  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0,
  LPARAM(pchar('windows')));

end;

Pada event OnClick TListBox, sisipkan kode berikut :

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Button1Click(Sender);
end;

Untuk contoh project, dapat di download di PublicFolder dengan nama SetDefPrinter.rar

Berikut cuplikan source code nya :

function TForm1.GetPrintServers(psName: string): TStrings;
var
  lpBuffer,lpPrinterInfo: PChar;
  lcCount,lcNumCount : DWord ;
  liCount,liAux:integer;
  lsAuxNome:TStrings; 

function GetContexts ( pctipo : cardinal; ppName : PChar ):TStringlist;
  var
  liCont : integer;
  lsNome:string;
  lbPode:boolean; 

begin
  lbPode:=false;
  Result:=TStringlist.Create;
  case pcTipo of
    8: lbPode :=
    EnumPrinters(pctipo,ppName,1,PByte(lpBuffer),lcCount,lcCount,
      lcNumCount);
    16: lbPode :=
    EnumPrinters(pctipo,nil,1,PByte(lpBuffer),lcCount,lcCount,
      lcNumCount);
  end;
  if not lbPode then
    Exit;
  lpPrinterInfo := lpBuffer;
  for licont := 0 to lcNumCount - 1 do
  begin
    with PPrinterInfo1(lpPrinterInfo)^ do
    begin
    if pcTipo = 8 then
    begin
      liAux:=Pos(',',pDescription);
      lsNome := copy(pDescription,liAux+1,Length(pDescription));
      Result.Add(lsNome);
    end
    else
    begin
      liAux  := Pos(ppName,pName);
      lsNome := copy(pName,liAux,Length(pName));
      if lsNome = ppName then
      begin
      Result.Add(string(pName));
      Exit;
      end;
    end;
    end;
    Inc(lpPrinterInfo, sizeof(TPrinterInfo1));
  end;
  end; 

begin
  lsAuxNome:=TStrings.Create;
  lcCount := 0;
  EnumPrinters(PRINTER_ENUM_REMOTE,nil,1,nil,0,lcCount,lcNumCount);
  GetMem(lpBuffer,lcCount);
  lsAuxNome := GetContexts(16,PChar(psName));
  if lsAuxNome.Count <> 0   then
  Result:=GetContexts(8,PChar(lsAuxNome.Strings[0]))
  else
  begin
  lsAuxNome.Add('Printer tidak ditemukan');
  Result:=lsAuxNome;
  end; 

end;

Contoh penggunaan nya, tambakan komponen TButton dan TListBox. Pada event OnClick TButton, sisipkan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items:= GetPrintServers(Edit1.Text);
end;

Untuk contoh project, dapat di download di PublicFolder dengan nama ScanPrinter.rar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  ListBox1: TListBox;
  Label1: TLabel;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  PNetResourceArray = ^TNetResourceArray;
  TNetResourceArray = array[0..100] of TNetResource;

function CreateNetResourceList(ResourceType: DWord;
                NetResource: PNetResource;
                out Entries: DWord;
                out List: PNetResourceArray): Boolean;
var
  EnumHandle: THandle;
  BufSize: DWord;
  Res: DWord;
begin
  Result := False;
  List := Nil;
  Entries := 0;
  if WNetOpenEnum(RESOURCE_GLOBALNET,
          ResourceType,
          0,
          NetResource,
          EnumHandle) = NO_ERROR then begin
  try
    BufSize := $4000;  // 16 kByte
    GetMem(List, BufSize);
    try
      repeat
        Entries := DWord(-1);
        FillChar(List^, BufSize, 0);
        Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);
        if Res = ERROR_MORE_DATA then
        begin
          ReAllocMem(List, BufSize);
        end;
      until Res <> ERROR_MORE_DATA;

      Result := Res = NO_ERROR;
      if not Result then
      begin
        FreeMem(List);
        List := Nil;
        Entries := 0;
      end;
    except
      FreeMem(List);
      raise;
    end;
  finally
    WNetCloseEnum(EnumHandle);
  end;
  end;
end;

procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings);

procedure ScanLevel(NetResource: PNetResource);
var
  Entries: DWord;
  NetResourceList: PNetResourceArray;
  i: Integer;
begin
  if CreateNetResourceList(ResourceType, NetResource,
    Entries, NetResourceList) then
  try
    for i := 0 to Integer(Entries) - 1 do
    begin
      if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or
       (NetResourceList[i].dwDisplayType = DisplayType) then
      begin
        List.AddObject(NetResourceList[i].lpRemoteName,
            Pointer(NetResourceList[i].dwDisplayType));
      end;
      if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then
        ScanLevel(@NetResourceList[i]);
    end;
  finally
    FreeMem(NetResourceList);
  end;
end;

begin
  ScanLevel(Nil);
end;

Contoh penggunaan nya, tambakan komponen TButton dan TListBox. Pada event OnClick TButton, sisipkan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
end;

Untuk contoh project, dapat di download di PulicFolder dengan nama ScanKompNet.rar

Welcome Back “Turbo” Delphi …. semoga dirimu sejaya zaman dulu …

Lihat sitenya di : http://www.turboexplorer.com/delphi

Betapa bodohnya diriku …. please forgive me ladies and gentlement for all my stupidly …

1. Pertama siapkan database MySQL (saya menggunakan versi 4.0.18) serta tablenya dengan field bertipe BLOB (mau BLOB, MEDIUMBLOB, atau LONGBLOB [asal jangan SpongeBob heheheheee... ]). Untuk langkah ini anda dapat menggunakan skrip berikut :

CREATE TABLE `gambar` ( `id` INTEGER UNSIGNED NOT NULL AUTO_INCREMENT, `image` LONGBLOB NOT NULL, PRIMARY KEY(`id`)

2. Buat aplikasi dengan komponen yang bisa membuat koneksi ke MySQL (disini saya menggunakan Zeos [bukan promosi lho]). Set koneksinya dan sisipkan komponen Table. Isi Property ‘TableName’ pada komponen Table ke tabel ‘gambar’, dan aktifkan.

3. Tambahkan komponen TDataSource dan set properties ‘DataSet’ – nya ke komponen Table.

4. Tambahkan komponen DBNavigator untuk bernavigasi. Set property VisibleButtons pada nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh = false, karena kita disini hanya butuh untuk bernavigasi.

5. Klik ganda pada komponen table, dan klik kanan pada ‘Field List Editor’ dan pilih ‘Add all field’ atau Ctrl+F.

6. Tambahkan komponen TOpenPictureDialog untuk memudahkan dalam pencarian gambar JPG. Aturlah Property ‘Filter’ – nya supaya file yang di support hanya untuk file JPG.

7. Tambahkan komponen TImage dan atur posisi dan propertiesnya sesuai sengan keinginan anda.

8. Tambahkan komponen TButton untuk mengeksekusi TOpenPictureDialog dan set Captionnya dengan ‘Cari Gambar’.

9. Buat fungsi yang akan menyimpan data gambar (*.jpg) ke tabel dengan skrip berikut :
…private
{ Private declarations }
procedure TampilkanGambarJPG(img: TImage);
public
{ Public declarations }
end;…

if OpenPictureDialog1.Execute then begin Table1.Append; Table1image.LoadFromFile(OpenPictureDialog1.FileName);
Table1.Post;
end;

10.Pada event OnDataChange pada komponen TDataSource, sisipkan fungsi untuk menampilkan gambar yang telah dibuat. Skripnya adalah sebagai berikut :

TampilkanGambarJPG(Image1);

11.Coba aplikasi anda jalankan Apabila anda telah mengikuti langkah-langkah tersebut, maka anda telah berhasil membuat aplikasi yang dapat menyimpan serta menampilkan file gambar JPG dengan menggunakan database MySQL.

Contoh source code dari aplikasi ini, dapat anda donwload di Public Folder dengan nama JPGMySQL.rar. Ingat!!! disini saya memakai komponen Zeos untuk koneksi ke MySQL. Anda dapat menggantinya dengan komponen kesayangan anda.

Hint: Sebenarnya trik tersebut bisa di terapkan pada database apapun, asalkan field dari tabelnya bertipe BLOB.

Sekian untuk tip’s & trik’s kali ini, sampai jumpa lagi di artikel selanjutnya dan Tetap Semangat !!!

Artikel ini pernah dimuat di Forum Delphi Indonesia