Announcement

Collapse
No announcement yet.

MapMonkey and Delphi Example

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • MapMonkey and Delphi Example

    Can anyone send me an example in D6 working with MM? I've been through the threads here, had it working at one point then it stopped completely. Ideally I'd like an example that displays the latitude/longitude and/or directions but anything would be a plus right now.

    Chris.

  • #2
    Using the dll or winsock

    Let me find em on my HD.
    PowerVoice v1 | NaviVoice Source
    GammaControl v2.4
    SKINbedder v3

    1995 Lexus SC300

    Comment


    • #3
      Code:
        if frmCommandAndControl.MM.IsMapMonkeyRunning = True then begin
        if frmCommandAndControl.MM.Connected = False then ConnectToMM;
        frmCommandAndControl.MM.ShowRoute;
      
      procedure ConnectToMM();
      var
        Word: WordBool;
        t: TOleEnum;
      begin
        word := True;
        frmCommandAndControl.MM.Connected := word;
        t := ThreadSync;
        frmCommandAndControl.MM.ThreadMode := t;
      end;
      PowerVoice v1 | NaviVoice Source
      GammaControl v2.4
      SKINbedder v3

      1995 Lexus SC300

      Comment


      • #4
        Using the DLL, hopefully. I'll try this later, thanks!

        Comment


        • #5
          Okay so I have this:

          Code:
          procedure ConnectToMM();
          var
            Word: WordBool;
            t: TOleEnum;
          begin
            word := True;
            Form1.MM.Connected := word;
            t := ThreadSync;
            Form1.MM.ThreadMode := t;
          end;
          
          
          procedure TForm1.Timer1Timer(Sender: TObject);
          var
            Word: WordBool;
          begin
                  if Form1.MM.Connected = False then ConnectToMM;
                  if mm.IsMapMonkeyRunning = true then
                          Begin
                          if Form1.MM.Connected = False then ConnectToMM;
                          label1.caption := 'connected';
                          If mm.connected then label2.caption := 'xx';
                          If mm.connected then label3.caption := mm.Version;
                          End
                  else
                          Begin
                          label1.caption := 'not connected';
                          End;
          
          end;
          I see label 1 show "Connected" but Label2 and Label3 never change, i.e. mm.connected is never true. Should I care? If I rey and access properties without it connected I get "not connected" errors.

          Thanks,

          Chris.

          Comment

          Working...
          X