MapInfo&Delphi. кто "соединял" их???

← →
AlterEgo of WondeRu © (2005-01-22 15:17) [0]

Здравствуйте, уважаемые!)

Может подскажите как проще поженить свою программу с МапИнфо? Если реальный пример на мыло кинете вообще рад буду!!! на delphikingdom больно уж примеры детские!

Заранее огромное СПАСИБО!

------
wonderu ~ mail~ru

← →
KilkennyCat © (2005-01-22 15:27) [1]

не соединял, но пробывал отрисовывать из файлов mif:

var DataList : TStringList; i, ii : integer; CountCoord : integer; x, y : integer; _Pen : TPen; procedure Paint_Pline; var z : byte; s : ansistring; begin ii := 1; PaintBox.Canvas.Brush.Color := clred; repeat s := Datalist.Strings[i + ii]; for z := 1 to length(s) do if s[z]= "." then s[z] :=","; z := pos(" ", s); x := round(strtofloat(copy(s, 1, z - 1))/10000)-1000; y := round(strtofloat(copy(s, z + 1, length(s) - z + 1))/10000)-400; if ii = 1 then paintbox.Canvas.MoveTo(x,y) else paintbox.Canvas.lineTo(x,y); inc(ii); until ii > CountCoord; i := i + ii + 2; end; begin if opendialog.Execute then begin DataList := tStringList.Create; DataList.LoadFromFile(opendialog.FileName); i := 9; repeat if pos("Pline",Datalist.Strings[i]) = 1 then begin CountCoord := strtoint(copy(Datalist.Strings[i], pos(" ", Datalist.Strings[i]) + 1, length(Datalist.Strings[i]) - pos(" ", Datalist.Strings[i]) + 1)); Paint_Pline; // _Pen.Color := strtoint(copy(Datalist.Strings[i + CountCoord],); end else inc(i); until i > Datalist.Count; DataList.Clear; Datalist.Destroy; end; end;

мож, пригодится...

← →
KilkennyCat © (2005-01-22 15:30) [2]

у меня есть дока по структуре mif, нужна?

← →
Чеширский_Кот © (2005-01-22 15:50) [3]

нужна

← →
AlterEgo of WondeRu © (2005-01-22 16:09) [4]

пасиб!)))

но мне нужно отобразить wor-файл необразимо огромный, притом до понедельника))) отобразитьь-то отобразил, только не понимаю как добавить свой элемент и перехватывать клик по нему!

← →
KilkennyCat © (2005-01-22 17:14) [5]

> Чеширский_Кот © (22.01.05 15:50) [3]

http://www.a-cons.com/mif.zip

> AlterEgo of WondeRu © (22.01.05 16:09) [4]

c wor не работал :(

← →
Torry © (2005-01-22 18:40) [6]

http://www.microolap.com/products/gis/easymap/
http://www.microolap.com/products/gis/micm/

О ценах договоримся, думаю.

← →
AlterEgo of WondeRu © (2005-01-22 18:57) [7]

Torry © (22.01.05 18:40) [6]
http://www.microolap.com/products/gis/micm/
бесплатно уже скачал!)

Torry © (22.01.05 18:40) [6]
http://www.microolap.com/products/gis/easymap/
поинтереснее будет... а там на какой срок триал?

← →
Чеширский_Кот © (2005-01-22 19:00) [8]

нахаляву - фиг с маслом...

Чеширский_Кот © (22.01.05 19:00) [8]
нахаляву - фиг с маслом...
ну не совсем так)

AlterEgo of WondeRu © (22.01.05 18:57) [7]
Torry © (22.01.05 18:40) [6]
http://www.microolap.com/products/gis/easymap/
поинтереснее будет... а там на какой срок триал?

еще вопрос: а события сервака он нормально поддерживает?

AlterEgo of WondeRu © (22.01.05 18:57) [7]
http://www.microolap.com/products/gis/micm/
бесплатно уже скачал!)
наврал!!! скачал я tmis, а mcim ща гляну!!!

To AlterEgo of WondeRu:

Триал ограничен только лицензией, то есть по времени использовать можно сколько угодно.

>еще вопрос: а события сервака он нормально поддерживает?

Вроде как претензий не было. Если нужно больше информации, то лучше зарегистрироваться у нас на сайте и через службу поддержки говорить: там непостредственно разработчик ответит.

MapInfo&amp;Delphi. кто "соединял" их??? Найти похожие ветки

MapInfo&Delphi. кто "соединял" их??? Найти похожие ветки