Romantika Cinta Delphi dan MapInfo !!!

Hai sahabat, pernekalkan aku Utayi, nama lengkapku Utary Dwi Lestari, waktu kecil aku dipanggil utayi, hiks....nama anak anak.

Facebook aku : http://www.facebook.com/dwipuji.lestary

Sekarang lagi belajar Delphi neh, ingin bisa bikin aplikasi yang terkonek dengan peta yang dibuat dari MapInfo. gini neh ceritanya:

Awal cerita bermula dari Mimi(mapinfo) lewat didepan rumah si Dodo(Delphi), setelah sekian lama saling memandang si Dodo tertariklah sama si MI. Kemudian si Dodo minta sama si OLE...untuk melakukan ta'aruf...sm si MImi tentunya....(dengan beraninya si Dol hanya mengandalkan nyali dan OLE saja...tanpa bantuan MapX,EasyMap dll).

setelah sekian lama ta'aruf dilaksanakan...pergilah Dodo yang didampingi oleh OLE kerumah MImi. seteleh keduanya dipertemukan, terjadilah komunikasi dua arah dengan baik dan sopan, komunikasinya begini…

siDodo bertanya:

procedure TfrmMain.InisialisasiOleAuto;
begin
objMi := CreateOLEObject('MapInfo.Application');
end;//akhir prosedur

lalu si Mimi manggut tanda setuju dan menunjukan kelebihannya…

lalu si Dodo ingin mengenal lebih yang dimulai dengan:

PointerClick(obj.Mi.RunMenuCommand(‘1701’),
ZoomInClick(obj.Mi.RunMenuCommand(‘1705’),
PanClick(obj.Mi.RunMenuCommand(‘1702’),
ZoomOutClick(obj.Mi.RunMenuCommand(‘1706’),

Pada awalnya semua berjalan lancar sampai pada pada suatu komunikasi yang simpel tp tak terduga , si Dodo bertanya:

procedure TfrmMain.ReparentingMapWindow;
var strAppMi, strDocMi, strhWnd: String;
begin
Str(frmPeta.pnlPeta.Handle, strhWnd);
StrDocMi := 'Set Next Document Parent' + strhWnd + 'Style 1';
objMi.Do(strDocMi);
strAppMi := 'Set Application Window' + StrhWnd;
objMi.Do(strAppMi);
end;//akhir prosedur

procedure TfrmMain.CariGedungClick(Sender: TObject);
begin
ReparentingMapWindow;
TampilkanLayerMi;
end;// akhir prosedur

tetapi Mimi jawab:

Project Project1.exe. raised exception class EoleException with message ‘Unrecognized command: Parent91968 style

Maka Kebingunganlah si Dodo...demi ingin hubungan kearah yang lebih serius, maka si Dodo meminta bantuan kepada teman-teman untuk memberi solusi agar si Mimi takluk dihadapan Dodo....

mohon pencerahannya untuk membantu mereka menuju kebahagiaan dan apakah untuk mencapai kebahagiaan itu mereka memerlukan bantuan MapBasic...
teman-teman bantuin ya dan solusinya bagaimana...