TMapViewer

[Maciej Kaczkowski]

I'm glad to announce a new component written for Lazarus. TMapViewer is a simple component that supports the most popular maps using native graphic control.

Features:
* support Google Maps (Normal, Satellite, Hybrid, Physical, Physical hybrid)
* support OpenStreet based maps (OpenStreetMap Mapnik, OpenStreetMap Osmrenderer, OpenCycleMap)
* support Virtual Earth maps (Normal, Aerial, Road, Hybrid)
* support Yahoo maps (Normal, Satellite, Hybrid)
* lots of debug information
* pluggable download engine (synapse, native win32)
* disk caching

Download at:
http://keit.co

[Leledumbo]

Just tried it out, nice work buddy

[circular]

Cool !

[Blaazen]

I want see it too!  
It tells me

Code: [Select]

/home/v1/Lazarus_Qt/lazarus/packager/kcMapViewer.pas(1,1) Fatal: Can't find unit httpsend used by kcMapViewer
What else do I should install ?

Thanks.

It is in Synapse. 

[Blaazen]

I finally compiled demo project. (on 64-bit Linux + Qt)

I was not able compile synapse as package so i only used its units.

I had to add line

Code: [Select]

{$mode objfpc}{$H+}to kcMapViewer.pas otherwise it told me:
 Error: Identifier not found "class"

Demo works fine.

Edit: I have slow internet connection. Seems this requires faster internet.

[JuhaManninen]

It works well!
The demo is very easy to port to other platforms (Linux, Mac): just change Windows unit to LCLIntf.

It is not a very big program yet works rather well. I guess you have plans to develop it further. Will it be open source?
The scrolling could be made much smoother by caching data and using threads.

Juha

[JD]

Looks very promising. Now it may be possible to write geolocalisation apps in Lazarus. 

[Maciej Kaczkowski]

Thanks for testing, project will be open source (LGPL).

on my roadmap there is:
* POI
* more events OnPaint, BeforeDownload, AfterDownload
* speedup (multithread based downloading)
* more maps (virtual earth, yahoo)

[Gintas]

Hmm and I thought it will be for game level maps

[cpalx]

it promises much, but it feels very slow....

I like it.

[ik]

I really liked it. I will play with it a bit more and write some demo and place it on my blog

Would you be willing to add this to Lazarus-CCR or a more formal repository ?

[pch]

Very nice component, congratulation!
But I try it at work and need to set a proxy to get out to google.
So I add this code instead of using HttpGetBinary:

Code: [Select]

{$IFDEF USE_SYNAPSE}
procedure DownloadFile(const Url: string; str: TStream);
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  try
    HTTP.ProxyHost:='127.0.0.1';
    HTTP.ProxyPort:='8080';
    HTTP.ProxyUser:='user';
    HTTP.ProxyPass:='password';
    if HTTP.HTTPMethod('GET', URL) then
    begin
      str.Seek(0, soFromBeginning);
      str.CopyFrom(HTTP.Document, 0);
    end;
  finally
    HTTP.Free;
  end;
end;
{$ELSE}           

It may be nice to add properties to the component to set the proxy.

[Maciej Kaczkowski]

It may be nice to add properties to the component to set the proxy.

I found solution for this. Please wait for next version.

Would you be willing to add this to Lazarus-CCR or a more formal repository ?

I have no access and I don't know how.

[Arbee]

What Lazarus level did you develop this with?

I tried installing it under 09.30 (I just installed that one a week ago) and I can't install mapviewer as it apparently requires fcl >= 1.0.1  and I have 1.0.

That's pretty close though ..... Could I sneakily change the .lpk file to set the dependency to 1.0?  Or will that fail big time?

[fredycc]

Amazing Maciej Kaczkowski, thanks for you contribution, this is what I'm looking for.

Regards