Re: Images in MI

1999-10-07 Thread Bill Thoen


This feature is not in MapInfo per se, but it's an easy one to
build if you have MapBasic. However, you might try Hot_Link, a
free MapInfo utility:
http://www.directionsmag.com/mapinfo-l/files1.htm#hot_link.zip

There's also something like this on MapInfo's site called PixShow
at http://www.mapinfo.com/solutions_and_services/free/mb4.html

Daniel Clark wrote:
> 
> Hello MI'ers
> 
> I'm new to MapInfo and I'm trying to set up a project that will contain
> images.
> 
> What I want to do is:
> Create points that, when clicked on with the mouse, will open a small image
> viewer and display the correct image for that point(eg. photos taken at that
> location)
> 
> How do I go about this?
> Any help will be apprieciated.
> 
> Cheers,
> 
> Dan Clark
> 
> __
> Get Your Private, Free Email at http://www.hotmail.com
> --
> To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
> "unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]



RE: Images in MI

1999-10-07 Thread Yas NaKayama


I am assuming you are using Mapbasic, right?

Sub CreatePhotoButton

   Alter ButtonPad ID 1
  Add
 Separator
 ToolButton
 Calling ShowPhoto
 ID 9011
 Icon 117
 Cursor MI_CURSOR_FINGER_UP
 DrawMode  DM_CUSTOM_POINT
 HelpMsg "Show Photo"

End Sub

Sub ShowPhoto

   Dim fCoordX  As Float
   Dim fCoordY  As Float
   Dim objCircle  As object
   Dim alTemp  As Alias
   Dim szPhotoNum   As String
 

   fCoordX = CommandInfo(CMD_INFO_X)
   fCoordY = CommandInfo(CMD_INFO_Y)

   Set Distance Units "ft"
 

   objCircle = CreateCircle(fCoordX, fCoordY, 50)

   Select * from PhotoTable where obj intersects objCircle into   
SelectedPoint

   If TableInfo(SelectedPoint, TAB_INFO_NROWS)  = 1 Then
  Fetch First from SelectedPoint
  alTemp = SelectedPoint.PhotoColumn
  szPhotoNum = alTemp
  '** gszPhotoPath is photo Directory
  If FileExists(gszPhotoPath & szPhotoNum & ".jpg") Then
 Call CreatePhoto(szPhotoNum)
  End If
   End If

End Sub

Sub CreatePhoto(byVal szPhotoNum As String)
 
   Dim szTableName   As String
   szTableName = "C:\Temp\" & szPhotoNum & ".TAB"

   Open File szTableName For Output As #711
   Print #711, "!Table"
   Print #711, "!Version 300"
   Print #711
   Print #711, "Definition Table"
   Print #711, "  File """ + gszPhotoPath & szPhotoNum & ".jpg" + 
   Print #711, "  Type ""RASTER"" "
   Print #711, "  (1,1) (1,1) Label ""Pt 1"", "
   Print #711, "  (5,1) (5,1) Label ""Pt 2"", "
   Print #711, "  (5,5) (5,5) Label ""Pt 3""  "

   Print #711, "  CoordSys NonEarth Units ""mm"" "
   Print #711, "  Units ""mm"" "
   Print #711, "  RasterStyle 1 50"  ' Brightness; default is 50
   Print #711, "  RasterStyle 2 50"  ' Contrast; default is 50
   Close File #711

   Open Table szPhotoTableName

   Exit Sub

End Sub

Somthing like this should work

Yas
 --
From:  Daniel Clark
Sent:  Thursday, October 07, 1999 5:49 AM
To:  [EMAIL PROTECTED]
Subject:  Images in MI

Hello MI'ers

I'm new to MapInfo and I'm trying to set up a project that will contain
images.

What I want to do is:
Create points that, when clicked on with the mouse, will open a small   
image
viewer and display the correct image for that point(eg. photos taken at   
that
location)

How do I go about this?
Any help will be apprieciated.

Cheers,

Dan Clark

__
Get Your Private, Free Email at http://www.hotmail.com
 --
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]



Re: Images in MI

1999-10-07 Thread Chris Martin

As far as I know PixShow.mbx(?) [available from MI web-site] will do 
this.

> Hello MI'ers
> 
> I'm new to MapInfo and I'm trying to set up a project that will
> contain images.
> 
> What I want to do is:
> Create points that, when clicked on with the mouse, will open a
> small image viewer and display the correct image for that point(eg.
> photos taken at that location)
> 
> How do I go about this?
> Any help will be apprieciated.
> 
> Cheers,
> 
> Dan Clark
> 
> __
> Get Your Private, Free Email at http://www.hotmail.com
> 
> - To unsubscribe from this list, send e-mail to [EMAIL PROTECTED]
> and put "unsubscribe MAPINFO-L" in the message body, or contact
> [EMAIL PROTECTED]

CJ Martin
GIS Consultant
WS Atkins Consultants Ltd
(01952) 201234
--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]



Re: Images in MI - SpatialPLus

1999-10-07 Thread Spencer Chainey

Dear Dan and All,

Check out SpatialPlus' 'LINKPLUS' tool.  Could do exactly what you are
looking for and more.  I've found it to be the best product out there
linking multimedia, websites, documents etc to a map object in MI

Sue Port from SpatialPlus recently wrote:
---
We've developed a free product for MapInfo called LINKPLUS that can link any
type of file or files (such as a MPEG video) to a single MapInfo object. It
uses the file extension to associate the appropriate program as set by
Windows.
The file is retrieved in one step by simply pointing and clicking rather
than
selecting the object first.

To get a free copy or more information on LINKPLUS visit our website at
www.spatialplus.com


I hope this helps.

Regards,
Spencer Chainey
Corporate GIS Manager
London Borough of Hackney
[EMAIL PROTECTED]
-Original Message-
From: Daniel Clark <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Date: 07 October 1999 13:00
Subject: Images in MI


>Hello MI'ers
>
>I'm new to MapInfo and I'm trying to set up a project that will contain
>images.
>
>What I want to do is:
>Create points that, when clicked on with the mouse, will open a small image
>viewer and display the correct image for that point(eg. photos taken at
that
>location)
>
>How do I go about this?
>Any help will be apprieciated.
>
>Cheers,
>
>Dan Clark
>
>__
>Get Your Private, Free Email at http://www.hotmail.com
>--
>To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
>"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
>

--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]