About

November 27th, 2011 Leave a comment Go to comments

Salam hangat.

About Me
Contoh Aplikasi
Sitemap

This blog contains material about Delphi programming, tools and accessories. The contents of this blog is completely free to be distributed, and will be very nice if there is a link back to this blog.

Before move on, would you like to give us a vote?


Well, if you get benefits from this blog, please do not hesitate to provide aid for development. Anything positive. Link back, share to social networking, global tagging or advice to a friend.

If you need linkback to your blog,  simply leave a comment on any post. Please note that the comment must be relevan to this blog themse/topics and contains only one link, as we mark any comment violates these two terms as spam, and eventually remove them.

If you want a persistent link to your blog/site, with 80×80 pixels customized picture, then contact me. I’m on http://www.facebook.com/joko.rivai. Note that I do not sell backlink.

Have a happy coding.
Regards :)

 

  1. Ketik J B
    August 14th, 2007 at 14:00 | #1
    Reply | Quote

    Hai Saya Ismail Orang Gila Sedunia. Kak Jo Kapan Peki ajarka Main Cattening

  2. alidodit
    October 11th, 2007 at 06:51 | #2
    Reply | Quote

    regards

    salam kenal
    saya baca di http://www.delphi-id.org, kita kirimkan ka pesan yg isinya ingin kenalan, terima kasih atas pesannya
    kita sdh pakarnya mi delphi, banyak jg program-program yg kita buat, salut ka sama kita

  3. imam
    March 11th, 2008 at 05:46 | #3
    Reply | Quote

    Salam kenal om Joko.. ;)

  4. yono
    July 6th, 2008 at 10:50 | #4
    Reply | Quote

    Salut you !!!!!!!!,mas joko your great meski urusannya gak nyambung…. ntar daku berguru yeeee!!! hehehehe

  5. mathoo
    July 16th, 2008 at 06:21 | #5
    Reply | Quote

    Lumayan juga web mu ini….tambah maju orang banda

  6. jokorb
    July 16th, 2008 at 18:33 | #6
    Reply | Quote

    Thanks Abang Mathoo. Salam kanal. jua par tamang2 samua…

  7. ijaldmi
    July 27th, 2008 at 01:13 | #7
    Reply | Quote

    salam kenal
    dari pecinta delphi tapi ngak pandai2 sampai sekarang
    aku bisa belajarkan sama teman

    riau-dumai

  8. ijaldmi
    July 27th, 2008 at 01:14 | #8
    Reply | Quote

    aku mau bljar teknik interface ni kak
    bisa di bantuin gak
    aplikasi kontrol……………………

    riau-dumai

  9. ijaldmi
    July 27th, 2008 at 01:16 | #9
    Reply | Quote

    oh ya kak ada yang lupa ni
    aku mau blajar buat wordpress tampilannya kayak punya
    kakak nii.
    tolong bantuannya dong…

    riau-dumai

  10. jokorb
    July 29th, 2008 at 12:58 | #10
    Reply | Quote

    aku mau blajar buat wordpress tampilannya kayak punya

    Daftar aja di wordpress.com, kemudian login, setup theme dan widget-widtgetnya, sudah itu update widgetnya dengan teks-teks atau link-link yang bermanfaat, kayak di samping kanan nih contohnya. Selanjutnya, update gambar-gambar seperti gambar header dan yang lainnya seperlunya.

    Mulailah mmposting isi kepala dan hati Anda. Jangan pernah ragu untuk berbagi.

    ‘what you hide today, will ve revealed tomorrow….’
    Jadi jangan pernah ragu berbagi….

    Salam Delphi :-)

  11. ridwan
    August 13th, 2008 at 09:38 | #11
    Reply | Quote

    orang makasar yang jago delphi toh.. :D keep it going bro. xixixiiii.. nyasar nyampe sini. blogger sejati :D Kapan bisa ke Makasar. dari dulu pingin kesana gak pernah kesampean.. :(

  12. yanto
    August 21st, 2008 at 04:42 | #12
    Reply | Quote

    mas bisa tolong saya,

    saya pake delphi6, winXP, LX-300 LPT1

    saya pengen cetak tapi langsung akses printer
    font-nya milik printer
    pake kertas panjang (roll)
    dan nggak langsung eject kertas

    trims

  13. jokorb
    August 22nd, 2008 at 12:15 | #13
    Reply | Quote

    Saya menemukan beberapa link yang mungkin bermanfaat buat Anda:
    Di Programmerheaven.com

    Yang harus diingat, sesuaikan nama port dengan port yang Anda pakai. Apakah LPT1, LPT2 atau lainnya.

  14. jogy sinaga
    October 17th, 2008 at 11:26 | #14
    Reply | Quote

    wah..cool..salam kenal yah..btw minta email dong..pengen nanya2 banyak nih

  15. jokorb
    October 19th, 2008 at 10:37 | #15
    Reply | Quote

    Salam kenal balik dah :-) . Kirim email bisa lewat email balasan yang autoreply ke email Anda. Asalkan email yang Anda input saat menulis komentar ini benar, sebuah autoreply telah dikirim ke Anda dan Anda bisa membalasnya bila ingin meluangkan waktu mengontak saya :-)

  16. jokorb
    October 19th, 2008 at 10:39 | #16
    Reply | Quote

    Ngemeng-ngemeng, beli POS di perusahaan Anda diskon ga’? He he he bercanda :-)

  17. yohana
    October 20th, 2008 at 14:55 | #17
    Reply | Quote

    ternyata org makassar toh.
    mau nanya lagi neh ttg firebird.
    gmn caranya pasang password ya di firebird?

  18. Regina Edith
    November 12th, 2008 at 08:16 | #18
    Reply | Quote

    Hai, salam kenal… :D
    makasih sudah mau mampir ke blog saya :D

    waduh, isi blognya tentang programming ya?
    hehe saya kurang paham, jadi ndak bisa komen :P
    tapi mungkin bblog ini akan saya promosikan ke teman-teman saya yang emang bagiannya programming…kalau boleh :P

    Regina

  19. jokorb
    November 13th, 2008 at 12:13 | #19
    Reply | Quote

    Makasih juga sebelumnya :-)

  20. Wafiah
    February 7th, 2009 at 08:39 | #20
    Reply | Quote

    Hi….

    Mav neyh qW bru buka blog neyh tyz mulai t’tarik budz mze rada2 g ngerty..

    MoOnd BnTuandx YaWh kA’

    • jokorb
      February 7th, 2009 at 18:19 | #21
      Reply | Quote

      Thenk BanGetZ dEcH uDhacH maMpEeR kE BloG sAya Ini.
      Deh, bahasanya hampir2 hampir saya kaga ngerti :-)
      He he he, sorry bercanda.
      Salam kenal ya…

  21. Hery Liem
    April 14th, 2009 at 16:34 | #22
    Reply | Quote

    Salut untuk mas Joko! Untuk kedua kali saya terbantu saat belajar membuat program dengan bahasa Delphi, yang tidak bisa saya temukan contoh2nya bahkan pada situs2 besar seperti DelphiAbout. Masih jarang orang yang mau berbagi ilmu seperti mas Joko ini. Terima kasih ya, sekali lagi salut!

  22. jokorb
    April 17th, 2009 at 19:35 | #23
    Reply | Quote

    Salut dan makasih kembali, Mas Thinker Factory :-)

  23. Hery Liem
    November 3rd, 2009 at 15:18 | #24
    Reply | Quote

    Mas Joko, lama ngga ketemu, lg cuti dari FB :)

    Mas Joko, bisa minta diajarin lg?
    Saya pake shellexecute untuk menjalankan 2 perintah DOS,

    misal perintah ke-1:
    ShellExecute(Handle, ‘open’, PChar(‘command.com’), PChar(‘/c copy D:Data1*.* D:Data2′), nil, SW_HIDE);

    lalu perintah ke-2:
    ShellExecute(Handle, ‘explore’, PChar(‘d:data2′), nil, nil, SW_SHOW);

    masalah muncul pas dipake di PC yg lelet, jadi sebelum perintah ke-1 selesai, perintah ke-2 udah dijalankan, hasilnya ngga sesuai kan?

    gimana caranya supaya setiap perintah bisa dieksekusi hingga selesai baru perintah berikutnya dijalankan (juga untuk lebih dari 2 perintah)

    thanks sebelumnya mas Joko, u are the best! :)

    • Joko Rivai
      November 3rd, 2009 at 18:31 | #25
      Reply | Quote

      Mas Hery, coba search di google dengan keyword “Delphi ExecAndWait”. pasti banyak hasilnya.

      Nah, yang jadi masalah, Command.com maupun CMD.EXE harus diberi perintah lewat StdIn, bukan Parameter Proses, jadi perintah
      Command.com dir /p c:Windows takkan berhasil dengan cara ini, beda dengan ShellExecute().

      Kenapa gak pake aja CopyFile() punya Delphi?

  24. Hery Liem
    November 3rd, 2009 at 22:41 | #26
    Reply | Quote

    TQ buat infonya :)

    Masalah pertama, ada juga perintah native Windows yang mau ta pake, seperti CACLS.EXE

    Masalah kedua, kalo beberapa perintah tadi dijalankan berurutan di PC yg lambat, sebelum perintah pertama selesai, perintah berikutnya sdh jalan. (saya tes di Celeron 1,6, selain di PC itu ngga ada masalah)

    Solusinya gimana mas Joko?

    • Joko Rivai
      November 5th, 2009 at 05:32 | #27
      Reply | Quote

      Sepert di atas, CMD.exe dan COMMAND.com membaca perintah lewat StdIn, bukan lewat parameter.

      Sedangkan CACLS.EXE masih menerima parameter, jadi shellExecute dapat dijalankan.

      procedure ExecAndWait(AppName, CommandLine: string; CommandShow: Longint);
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    ExInfo.lpVerb := 'open';
    ExInfo.lpParameters := PChar(CommandLine);
    lpFile := PChar(AppName);
    nShow := CommandShow;
  end;
  if ShellExecuteEx(@exInfo) then
    Ph := exInfo.HProcess
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(Ph);
end;

      Dan dapat dipanggil :

      procedure TForm1.Button1Click(Sender: TObject);
begin
  ExecAndWait('cacls.exe','', sw_SHOW);
end;
  25. zhanaz45
    January 3rd, 2011 at 04:27 | #29
    Reply | Quote

    Hy.. :D

    nama kuw anas, ini link kuw http://nanazbazie.wordpress.com..

    salam kenal yach.. lol:

  26. zhanaz45
    January 3rd, 2011 at 10:57 | #31
    Reply | Quote

    saya udah tambah khan.. :)

    nanti kunjungi blog saya yach..

  27. shAndhy
    May 11th, 2011 at 15:43 | #32
    Reply | Quote

    Sukses selalu bro_

  28. farisss
    May 17th, 2011 at 08:35 | #33
    Reply | Quote

    Boleh ne tukeran link http://sifaris.blogspot.com

  29. farisss
    May 17th, 2011 at 08:38 | #34
    Reply | Quote

    Mas, boleh gak tukeran link http://sifaris.blogspot.com

  30. andica
    May 19th, 2011 at 18:33 | #36
    Reply | Quote

    belum apa2 sudah UUD

    • Rivalina
      May 20th, 2011 at 16:09 | #37
      Reply | Quote

      @andica:Makasih kritikannya. Anda tidak harus ke blog ini bila tidak suka… ;)