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