Kusprayitna Blogs

Hidup untuk berbagi ilmu :: IT Linux Windows Database Oracle PHP OpenSource

Archive for the 'Delphi' Category

Perbedaan default Windows registry aplikasi biasa dan service

Posted by kusprayitna on 25th July 2011

Untuk pertama kalinya membuat aplikasi service di windows menggunakan delphi sedikit ada perbedaan.

Secara sederhana aplikasi service dibuat dengan delphi dengan cara sebagai berikut :

  1. Buat aplikasi dari menu New + Service Application
  2. Hasil form dan object inspectornya yaitu :

  3. Form service pada dasarnya seperti form datamodule, sehingga untuk inisialisasi ke database misalnya akan dibuat saat event onCreate.
  4. Koneksi ke database. Untuk koneksi saya biasanya menggunakan data teracak yang disimpan di registry widnows yang dibaca dengan fungsi yang ada di unit TRegIniFile.
  5. Fungsi membaca registry
function ReadIniFile(section, data, default: string): string;
var fileini: TRegIniFile;
fname, tmp: string;
begin
fname := 'Software\' + copy(ExtractFileName(paramstr(0)), 1, length(ExtractFileName(paramstr(0))) - 4);
fileini := TRegIniFile.Create(fname);
try
tmp := fileini.ReadString(section, data, default);
if tmp = default then
begin
fileini.WriteString(section, data, default);
end;
finally
fileini.Free;
end;
result := tmp;
end;
Perbedaannya dengan aplikasi biasa yaitu :
1. Default root key bukan HKEY_CURRENT_USER akan tetapi HKEY_USERS
2. Data ditulis bukan di /Software akan tetapi di /.Default/Software

Posted in Application, Delphi, Windows | No Comments »

Membaca / mencari folder my documents current user dengan Delphi

Posted by kusprayitna on 1st December 2009

Implementasi n-computing untuk tes online di kampus ternyata diperlukan beberapa perubahan, antara lain yaitu :

  1. N-Computing hanyalah terminal, sehingga semua dianggap satu omputer saja (hanya 1 IP saja)
  2. Security setiap terminal untuk akses ke server sangat perlu ditingatkan, yaitu dengan :
    a. Drive/Folder security, hak akses user dihapus
    b. Start program dan sejenisnya dihapus dan read-only
    c. Folder yang bisa di tulis hanya di My Documents
    d. Diinstall Deep Freeser , sehingga semua yang ditulis di My Documents akan hilang saat booting

Dengan adanya fungsi di Tes Online adalah tes TOEFL dan ada listening, maka diperlukan akses file MP3 (soal listening).

Read the rest of this entry »

Posted in Delphi, Programming | No Comments »