Mengatasi Error “Data provider or other service returned an E_FAIL status”

Dikirimkan di Pemograman Delphi, Uncategorized by toeko

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”. Baca lebih lanjut →

6Nov2012

Tutorial Borland Delphi

Dikirimkan di Catatan, Pemograman Delphi by toeko

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 :

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

25Mar2009

Menggunakan database tanpa alias

Dikirimkan di Pemograman Delphi by toeko

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.

23Mar2009

SETTING ORACLE DRIVER PADA BDE

Dikirimkan di Database, Pemograman Delphi by toeko

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/

borland-database-engine

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.

29Okt2008

Delphi Twain

Dikirimkan di Pemograman Delphi by toeko

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.

20Okt2008

Form transparant

Dikirimkan di Pemograman Delphi by toeko

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 😀

>>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

13Okt2008

Task manager dengan dengan delphi

Dikirimkan di Pemograman Delphi by toeko

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 :

buka program kesayanganya borland delphi 7.0 ( yang penulis pakai).
pilih new ->Application
tambahkan uses Tlhelp32 pada deklarasi unit.
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

9Okt2008

Mengenal Delphi

Dikirimkan di Pemograman Delphi by toeko

Bab 1

Mengenal Delphi

Bagi anda yang baru mengenal Delphi, mungkin akan bertanya Tanya apakah Delphi itu?delphi merupakan tool untuk membantu kita mengembangkan aplikasi untuk beragam versi windows. Dengan menggunakan Delphi anda dapat membuat aplikasi desktop, internet dan aplikasi database.

Borland mengeluarkan Delphi dalam tiga macam edisi, yaitu Enterprise Edition, Profesional Edition dan Personal Edition. Enterprise Edition merpakan versi paling lengkap disbandingkan dengan dua versi lainnya. Untuk dapat menggunakan Delphi dengan optimal, anda perlu menyediakan computer dengan spesifikasi yang sesuai dengan yang direkomendasikan oleh Borland, yaitu computer dengan prosesor minimal Pentium II 400 Mhz dan RAM 128 Mb.

Mengenal IDE Delphi

Seperti layaknya software visual programming lain, Delphi juga mempunyai IDE (Integrated Development Environment). Pada IDE terdapat berbagai fasilitas untuk melakukan desain, coding maupun debugging. IDE Delphi terdiri dari berberapa bagian utama yaitu Main Window, Component Pallete, Toolbar, Object TreeView, Code Explorer, Object Inspektor, Form Designer, dan Code Editor. Semua bagian tersebut dapat anda atur sendiri, misalnya anda dapat menyembunyikan bagian-bagian yang tidak atau jarang anda gunakan.

Tool Bar

Code Explorer

Component Pallete

Form Designer

Code Editor

Object Treeview

Gambar 1.1 : Gambar IDE Delphi

Component Palette

Component Palette merupakan bagian yang digunakan untuk meletakan berbagai komponen yang sesuai dengan kategorinya. Misalkan komponen yang digunakan untuk aplikasi yang menggunakan Borland Database Engine (BDE) akan di letakan pada page BDE, atau komponen yang digunakan untuk aplikasi yang membutuhkan Interbase akan diletakan pada page Interbase dan Interbase Admin. Susunan atau urutan dari Component Palette dapat anda atur dengan mudah dari menu Component | Configure Palette.

Object Inspector

Object Inspector terdiri dari dua bagian, yaitu properties dan Events. Pada bagian Properties anda dapat mengatur berbagai property dari object atau komponen yang anda gunakan. Tiap komponen tentunya akan mempunyai property sendiri sendiri. Misalkan jika anda menempatkan komponen Button pada form, anda dapat mengganti propertynya disini. Sebagai contoh anda dapat mengganti Caption, Name, Color dan sebagainya.

Bagian kedua dari Object Inspector adalah Event. Dibagian ini anda dapat mengatur berbagai event pada suatu object, misalkan anda akan menampilkan pesan pada sebuah button apabila ia di klik.

Code Explorer

Pada jendela Code Explorer ini akan ditampilkan semua type, variable, dan routine yang didefinisikan pada unit. Selain itu juga ditampilkan semua unit yang digunakan yang terletak pada klausa uses. Untuk type yang kompleks seperti kelas, Code Explorer akan menampilkan semua informasi termasuk daftar field, properties dan method. Jika anda melakukan klik dua kali pada salah satu item Code Explorer, secara otomatis Code Editor akan menampilkan deklarasi dari item yang anda klik.

Jika Code Explorer tidak nampak, anda dapat menampilkannya dengan memilih menu View | Code Explorer.

Code Editor

Pada bagian inilah anda dapat menuliskan semua kode dan memasukan semua unit yang di pakai untuk program yang anda buat. Jika anda membuka lebih dari satu file unit pada Code Editor ini, pada bagian atas akan muncul tab atau page yang berisi nama file yang sedang anda buka. Susunan atau urutan page dapat anda ganti dengan menarik pada bagian judul page ke posisi yang anda inginkan.

Pada bagian bawah code editor terdapat status bar yang terdiri dari tiga bagian. Bagian paling kiri berisi keterangan posisi kursor yang dinyatakan dalam baris dan kolom. Kolom kedua berisi tentang status kode apakah sudah mengalami perubahan atau belum. Keterangan modified menandakan bahwa telah terjadi perubahan pada kode. Kolom paling kanan menandakan status tombol insert pada keyboard, apakah berstatus insert atau Overwrite.

Code Completion

Pada Delphi 7 memiliki ukuran Code Completion yang dapat diubah ubah (reziable). Selain itu untuk method yang digunakan pada deklarasi read/write tidak ditampilkan lagi pada code explorer. Saat anda menuliskan karakter, hanya method dan property yang paling sesuai dengan yang anda ketikan yang akan ditampilkan.

Catatan

Jika Code Completion tidak tampil,anda dapat menampilkannya dengan menekan tombol Ctrl + Spacebar. Urutan item pada Code Completion dapat anda ganti dengan melakukan klik kanan lalu pilih Short by scope atau Sort by Name.

Form Designer

Form Designer adalah salah satu bagian dari IDE Delphi dalam mendesign tampilan atau dengan kata lain interface untuk berinteraksi manusia dan aplikasi yang dihasilkan. Pada Form Designer anda dapat mengatur tampilan aplikasi sesuai dengan keinginan anda. Tekan F12 untuk berpindah ke Code Editor dan Form Designer.

Toeko's Blog

Join me and Make "IT" Easy

Arsip Kategori: Pemograman Delphi

Mengatasi Error “Data provider or other service returned an E_FAIL status”

Tutorial Borland Delphi

Menggunakan database tanpa alias

SETTING ORACLE DRIVER PADA BDE

Delphi Twain

Form transparant

Task manager dengan dengan delphi

Mengenal Delphi