Форум: "Потрепаться";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Вниз
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]нахаляву - фиг с маслом...
← →
AlterEgo of WondeRu © (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 WondeRu © (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 WondeRu © (2005-01-22 21:04) [12]Torry © (22.01.05 20:42) [11]
спасиба огромное!!!))))
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.048 c
