---

Dealing directly with TIOParams.EXIF_GPSLatitude and TIOParams.EXIF_GPSLongtitude is difficult.

You are better to set the individual properties

---

 
Well they can be used if you are happy to encode all of the data into a Double value, but I expect 99% of people will prefer working with the individual properties.


What a ridiculous thing to say.

Google Maps use LatLong in their APIs.
public final double	latitude	Latitude, in degrees.
public final double	longitude	Longitude, in degrees.

TIESlippyMap.Latitude: Declaration property Latitude: double;
TIESlippyMap.Longitude: Declaration property Longitude: double;

 

---

What problems do you encounter when setting TIOParams.EXIF_GPSLatitude and TIOParams.EXIF_GPSLongtitude?

---

procedure TfrmMain.btnLoadImageClick(Sender: TObject);
begin
  if OpenImageEnDialog1.Execute then
    with ImageEnView1 do
      begin
        IO.LoadFromFile(OpenImageEnDialog1.FileName);
        EditEXIF_GPSLatitude.Text := FloatToStr(IO.Params.EXIF_GPSLatitude);
        EditEXIF_GPSLongitude.Text := FloatToStr(IO.Params.EXIF_GPSLongitude);
        EditEXIF_UserComment.Text := IO.Params.EXIF_UserComment;
      end;
end;

procedure TfrmMain.btnWriteClick(Sender: TObject);
begin
  with ImageEnView1 do
    begin
    if not IsEmpty2 then
      with IO.Params do
        begin
          EXIF_GPSLatitude := StrToFloat(EditEXIF_GPSLatitude.Text);
          EXIF_GPSLongitude := StrToFloat(EditEXIF_GPSLongitude.Text);
          EXIF_UserComment := EditEXIF_UserComment.Text;
        end;
    end;
end;

procedure TfrmMain.btnSaveToFileClick(Sender: TObject);
begin
   with SaveImageEnDialog1 do
    if Execute then
      ImageEnView1.IO.SaveToFile(FileName);
end;

// numeric, full stop and minus only
procedure TfrmMain.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9', '-', '.']) then
    Key := #0
  else if ((Key = '.') or (Key = '-')) and (Pos(Key, (Sender as TEdit).Text) > 0) then
    Key := #0 else if (Key = '-') and ((Sender as TEdit).SelStart <> 0) then
  Key := #0;
end;

ImageEnView1.IO.Params.EXIF_GPSLatitude  := StrToFloat(EditEXIF_GPSLatitude);
ImageEnView1.IO.Params.EXIF_GPSLongitude := StrToFloat(EditEXIF_GPSLongitude);
ImageEnView1.IO.Params.EXIF_GPSVersionID := '2.2.0.0';