Mengatasi Error "Data provider or other service returned an E_FAIL status"

Sudah lama saya tidak koding menggunakan delphi, jadi ceritanya kemarin waktu koding bikin aplikasi downloader data dari distributor dalam bentuk csv. ketika saya melakukan perubahan kode di object adotable tiba2 saat coba setting properties active menjadi true muncullah error " data provider or other service returned an E_FAIL status".

Tutorial Borland Delphi

Malem2 saat ini masih dikantor proses data , sambil tunggu prosesnya selesai lebih baik update blog . buat rekan rekan yang mau belajar delphi , berikut adalah daftar link bacaan untuk agan-agan belajar :

1. http://www.schwartzman.org.br/simon/delphi/


2. http://www.jasontpenny.com/Delphi/


3. http://www.efg2.com/Lab/Library/Delphi/Algorithms/index.html


4. http://www42.tok2.com/home/okapony/download/


5. http://www.bloodshed.net/delphi/index.html


6. http://delphiforfun.org/Programs/Indices/programIndex.htm


7. http://www.liacs.nl/~svdmaar/hci/


8. http://www.rl7.bmstu.ru/archives/Delphi/


9. http://www6.uniovi.es/delphi/ftp/d20free/


10. http://www.rnikulin.ru/files/programmer/delphi/


11. http://ftp.newbielabs.com/Delphi%20Gecko%20SDK/


12. http://www.cesarkallas.net/arquivos/livros/informatica/delphi


13. http://www.happyarts.com/delphi/


14. http://www.discom.com/delphi/


15. http://stmik-banjarbaru.ac.id/unduh_kuliah/index.php?dir=Delphi/Rahmadi%20S.Kom/


16. http://www.delphisources.ru/pages/faq/master-delphi-7/content/LiB0098.html


17. http://www.delphi7.nl/index.php


18. http://www.greecetravel.com/delphi/


19. http://ftp.riken.jp/pc/simtelnet/win95/delphi/


20. http://irtfweb.ifa.hawaii.edu/~tcs3/tcs3/vendor_info/


21. http://ftp.sunet.se/pub/simtelnet/win3/delphi/


22. http://delphi.icm.edu.pl/


23. http://zeus.nyf.hu/~bajalinov/my_special/SW/Delphi%20eBooks/Delphi%207/


24. http://zeus.nyf.hu/~bajalinov/my_special/SW/Delphi%20eBooks/Delphi/


25. http://leetupload.com/dbindex2/index.php?dir=Win32/Sources/Delphi/


26. http://koti.mbnet.fi/akini/delphi/dspack/


27. http://www6.uniovi.es/delphi/ftp/tools/?N=D


28. http://www.delphiforfun.org/programs/index.htm


29. http://xmlsoft.org/sources/win32/Delphi/


30. http://ftp.riken.jp/pc/simtelnet/winxp/delphi/


31. http://is.njit.edu/pubs/delphibook/


32. http://pedestre.info/.delphi/


33. http://dbsvr.clhs.tyc.edu.tw/delphi/


34. http://www.pedestre.info/


35. http://ensino.univates.br/~edsonahlert/delphi/


36. http://printinformatica.com.br/


37. http://www.koehlke.com/pdf/


38. http://ftp-developpez.com/delphi/sources/


39. http://www.helloworld.ru/texts/comp/lang/delphi/

Happy coding.. selamat belajar ya ..tetap semangat...

Menggunakan database tanpa alias

Pada pemograman delphi yang menggunakan database desktop untuk mengelola  databasenya di perlukan sebuah alias untuk mengkoneksikan keaplikasi. salah satu hal yang cukup merepotkan saat anda memindahkan letak file database adalah anda harus mengubah path pada alias name. jika tidak mengubah path tersebut, maka akan muncul pesan kesalahan yang mengatakan bahwa letak file tabel yang anda gunakan tidak ditemukan. cara yang mudah untuk mengakali masalah ini adalah dengan meletakkan file database dengan file exe yang dibuat pada satu direktori. selanjutnya anda dapat mengubah property databasename dari komponen TTable dan Tquery menjadi “.\” ( tanpa tanda kutip). maka pesan kesalahan alias tidak akan muncul lagi, jika akan digunakan pada komputer lain cukup kopikan database dan file exenya pada satu direktori juga tanpa harus instal BDE.

SETTING ORACLE DRIVER PADA BDE

Jika anda menggunakan Borland Database Engine untuk mengkoneksikan database Oracle maka berikut adalah cara mensetting Oracle driver pada BDE sehingga aplikasi bisa berjalan di PC Client. Buka BDE biasanya ada di direktori C:/program files/common files/Borland shared/

Setelah jendela Borland database engine terbuka , pilih tab configuration kemudian pilih DriversàNativeàOracle.

Pada jendela sebelah kanan ubah definisi DLL32 menjadi SQLORA8.DLL dan VENDOR INIT nya menjadi OCI.DLL jika versi Oracle yang diinstal adalah versi 8.0 atau yang terbaru. Jika dibawah versi 8.0 maka definisi DLL32 menjadi SQLORA32.DLL dan VENDOR INIT nya menjadi ORA73.DLL atau MTXOCI.DLL.

Delphi Twain

Kalau yang sering chatting pasti udah pada tahu semua program yahoo messenger, dengan program itu kita bisa share video atau wajah kita yang imut dengan web cam :D.

bagi yang sering ngoprek program tentunya ingin tahu caranya mengakses perangkat web cam tersebut lewat bahasa pemograman. untuk bisa mengakses perangkat keras dari pc maka dibutuhkan sebuah interface yang bisa menghubungkan antara si perangkat keras dengan perangkat lunak tersebut. biasanya setiap pembelian perangkat webcam kita akan diberikan driver untuk perangkat tersebut sehingga bisa di akses lewat PC dan perhatikan pula pada bagian dus web cam akan tertulis "Twain support", nah dengan twain ini nanti kita akan menghubungkan antara perangkat webcam dengan bahasa pemograman.

pemograman delphi dikenal dengan pemograman yang bebas flatform, dan pengembangan IDE yang yang mudah terutama penambahan library dan component. untuk menghubungkan perangkat web cam dengan bahasa pemograman delphi kita menggunakan sebuah component yang bernama DelphiTwain. dengan delphitwain kita bisa mengakses twain support untuk interface web cam ke dalam bahasa pemograman delphi sehingga perangkat tersebut bisa di kontrol lewat event dan method dalam pemograman.

Form transparant

Jika kita membaca buku buku tentang tips and trick pemograman seperti visual basic atau aplikasi desktop yang lain pasti deh pernah ketemu sama yang namanya bikin tampilan form transparant, nah kali ini saya akan menunjukan cara melakukannya lewat pemograman delphi. berapa baris kode yang akan ditulis? jawabnya tidak ada ..! . " Loh koq tidak ada? " , pertanyaan ini muncul karna klo kita liat di bahasa pemograman lain pasti pake coding yang lumayan ribet untuk para newbie.

sekarang ikuti langkah langkahnya :

>>pertama buka program borland delphi 7 ( yang penulis pakai ini adalah yang versi 7 ) klo blm punya silahkan download atau beli yang originalnya atau pinjam ke teman yang punya :D

>>pilih new-application.

>>klik pada form1, lihat pada object inspector pilih tab properties.

>>pada tab properties set AlphaBlend dengan "true" dan AlphaBlendValue nya dengan sembarang angka di bawah 255;

>>makin kecil angkanya maka akan semakin transparant form yang kita buat.

Mudah kan ..! gak perlu pake coding-coding segala

Task manager dengan dengan delphi

salah satu fungsi task manager di windows adalah untuk mematikan proses suatu aplikasi bila sudah tidak bisa di matikan secara normal, dengan program delphi pun kita bisa membuat suatu aplikasi yang dapat meng kill suatu proses seperti halnya task manager windows.

langkah - langkahnya :

1. buka program kesayanganya borland delphi 7.0 ( yang penulis pakai).


2. pilih new ->Application


3. tambahkan uses Tlhelp32 pada deklarasi unit.


4. tambahkan function berikut pada bagian code

function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

procedure KillProcess(hWindowHandle: HWND);
var
hprocessID: INTEGER;
processHandle: THandle;
DWResult: DWORD;
begin
SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
if isWindow(hWindowHandle) then
begin
{ Get the process identifier for the window}
GetWindowThreadProcessID(hWindowHandle, @hprocessID);
if hprocessID <> 0 then
begin
{ Get the process handle }
processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
False, hprocessID);
if processHandle <> 0 then
begin
{ Terminate the process }
TerminateProcess(processHandle, 0);
CloseHandle(ProcessHandle);
end;
end;
end;
end;

5. tambahkan dua buah button, button1 dan button 2 , pada button 1 masukan kode sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('notepad.exe');
end;

6. double klik button2 dan ketikan kode sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);
begin
KillProcess(FindWindow('notepad',nil));
end;

contoh diatas digunakan untuk mengkill proses dari notepad.exe , silahkan mencoba