Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

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

 
AlterEgo of WondeR©   (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 WondeR©   (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 WondeR©   (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]

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


 
AlterEgo of WondeR©   (2005-01-22 19:21) [9]

Чеширский_Кот ©   (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 WondeR©   (2005-01-22 19:29) [10]

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

наврал!!! скачал я tmis, а mcim ща гляну!!!


 
Torry ©   (2005-01-22 20:42) [11]

To AlterEgo of WondeRu:

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

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

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


 
AlterEgo of WondeR©   (2005-01-22 21:04) [12]

Torry ©   (22.01.05 20:42) [11]
спасиба огромное!!!))))



Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.04 c
14-1106253119
Nic87
2005-01-20 23:31
2005.02.13
Рост Шварценэггера


14-1106577272
Knight
2005-01-24 17:34
2005.02.13
Кто сталкивался с глюком оптической мыши на Win2kServer?


1-1107142075
Yus
2005-01-31 06:27
2005.02.13
ListView в виртуальном режиме работает коряво


3-1105686496
DelphiN!
2005-01-14 10:08
2005.02.13
Как добавить в поле столбца еще один стобец со своими полями ?


1-1106734580
SashkoSoft
2005-01-26 13:16
2005.02.13
ресурсы в dll-ке