ref ke artikel di http://pascal-id.org/dpr/Artikel269-SavedanLoadGambarkeDatabase.pas dapet informasi melalui YM, dari mr 'Rachman Manz', bahwa: Tidak bisa dipergunakan di Delphi 2009, karena ada terjadi kesalahan pada saat penyimpanan. Alasan: ZeosLib menggunakan AnsiString dan untuk menjaga kompatibilitas terhadap Delphi dibawah versi 2009. Belum dapat dipatch di Delphi 2009, karena Delphi 2009 sudah menggunakan UnicodeString, dan ada perlakuan khusus untuk string di Delphi 2009. informasi lain bisa didiskusikan melalui forum diskusi delphi.

Penjelasan Delphi 2009 Strings : http://www.micro-isv.asia/2008/08/get-ready-for-delphi-2009-and-unicode/ http://www.micro-isv.asia/2008/10/delphi-2009-string-performance-in-a-nutshell/ dan katanya , saya link artikelnya ilang ...

"The most dramatic change in Delphi 2009 is that the “string” type is now an alias for UnicodeString instead of AnsiString"

:mrgreen:

Tambahan dari comment dari salah satu link diatas :

In Delphi 2009, “string” is always UnicodeString. There’s no compiler option to change that. If you want to use AnsiString, you’ll have to declare your strings as that. AnsiString overloads of common functions from the SysUtils unit can be found in the new AnsiStrings unit.

Jadi "string" di D2009 itu selalu UnicodeString dan gag ada option di compiler untuk mengubahnya ... yah

Thread Up again mengenai : http://pascal-id.org/dpr/line269-SavedanLoadGambarkeDatabase.pas Kabar gembira ... :mrgreen: perhaps .... Seperti yang disebutkan diatas, memang untuk Delphi 2009 Zeos belum bisa handling BLOB (khusus MySQL) dengan benar. Setelah perjalanan diskusi panjang dan tracing kurang lebih memakan waktu 1 bulan antara daku dengan mdaems yang memberikan entry point process, akhirnya dengan senang hati khusus pengguna ZeosLib + MySQL sekarang sudah bisa handling BLOB untuk Delphi 2009 + 2010. Meskipun bukan solusi yang ideal (menurut mdaems -- sang creator), tetapi sudah bisa menghandle perbaikan khusus BLOB MySQL di Delphi 2009 + 2010... Rekan - rekan bisa menggunakan (masih versi Alpha) untuk zeosLib stable 6.5.5 + trunk rev 711. versi trunk rev 711 belum dilakukan all-patch buat BLOB ini, dan untuk all-patch BLOB bisa di download di : http://www.novaup.com/download/y03gzlgnefxn2 copy all file ke {ZEOSLIB}/src/dbc dan ternyata sudah ada first step 64-bit mysql :mrgreen:, dan keseluruhannya bisa di lihat di ChangeLog nya zeos ... Untuk mengikuti / memonitor perjalanan dari zeosLib bisa di link : http://fisheye2.atlassian.com/changelog/zeos No Password ... free for all ... :mrgreen: Man'z

hebat nech kang manz nech akhirnya perjuangan lamanya dengan si Mr Mdaems ga sia-sia. thanks kang Manz

mantabz om...akhirnya perjuangan tidak sia2 juga :)

@n3o_cybertech ... ya iyalah ... perjuangan kudu berhasil, soalnya dah kadung pake nga-heossss (kata kang ImanD) mah :mrgreen: dan juga dah di upgrade my Delphi dari D2K7 ke D2K9 ... :mrgreen: cuman sayang ... baru juga punya D2K9 ... eee D2KA dah nonghol :mrgreen: Note: D2KA: D2010 ... kenapa jadi D2KA ? karena kalo angka 10 di hexa itu menjadi A ... just intermezzo ... :mrgreen:

untuk gambar saya sendiri biasa menggunakan nama gambar saja kemudian program memiliki configurasi letak photo tabel cukup berisi nama image saja secara sederhana seperti ini tinggal di buatkan fungsi terpisah saja yg mengembalikan nilai string alamat<path> photo nya :

procedure TFormKonta.btnUpdatePhotoClick(Sender: TObject);
var str: string;
begin
  if OpenPhoto.Execute then
  begin
    photo.Picture.LoadFromFile(OpenPhoto.FileName);
    str:= FormatDateTime('dd-mm-yy-hhmmss',Now)+
          ExtractFileName(OpenPhoto.FileName);
    if Application.MessageBox('Apakah akan di update Ke kontak Photo ini',
                               'Pilihan',MB_YESNO+MB_ICONWARNING) =IDYES then
    begin
      try
        with qryKontak do
        begin
          SQL.Clear;
          SQL.Text := 'UPDATE tb_kontak SET photo = :pPhoto WHERE id =:pID';
          ParamByName('pPhoto').AsString := str;
          ParamByName('pID').AsString :=qryKontak.Fields[0].AsString ;
          Execute;
        end;
        photo.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+
                                 'photo'+str);
        qryKontak.Refresh;
      except
        Application.MessageBox('Terjadi kesalahan sistem hubungi Admin','Error');
      end;
    end;
  end;
end;

untuk menampilkan kan tinggal ambil data dari tabel saja teman2 senior delphi pasti lebih tau sorri baru belajar juga