Ver Mensaje Individual
  #2  
Antiguo 18-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola randenf.

Google dice que:
Cita:
Ejemplos de formatos aceptados:

Grados, minutos y segundos (DMS): 41° 24' 12.1674", 2° 10' 26.508"
Grados y minutos decimales (DMM): 41 24.2028, 2 10.4418
Grados decimales (DDD): 41.40338, 2.17403
Fuente: Coordenadas de latitud y longitud

Entonces, creo que basta con darle formato a las cadenas que te devuelve CCR Exif para adecuarlas a un formato aceptado.
Código Delphi [-]

uses ClipBrd;

function FormatGoogleCoord(const Sexa: string): string;
var
  ts: TStrings;
  pc: Char;
begin
  ts:= TStringList.Create;
  try
    ts.CommaText:= Sexa;
    pc:= UpCase(ts[2][Length(ts[2])]);
    if pc = 'O' then pc:= 'W';   // para que acepte la 'O'
    ts[2]:= Copy(ts[2], 1, Pos('/', ts[2]) - 1);
    ts[2]:= FloatToStr(StrToFloat(ts[2]) / 100);
    ts[2]:= StringReplace(ts[2], ',', '.', [rfReplaceAll]);
    Result:= ts[0] + ' ' + ts[1] + ' ' + ts[2] + pc;
  finally
    ts.Free;
  end;
end;


procedure TForm1.btnFormatClick(Sender: TObject);
var
  Exif1, Exif2: string;
begin
  // Mi ciudad:
  Exif1:= '38,22,37/100S';
  Exif2:= '60,16,31/100W';
  Clipboard.AsText:= FormatGoogleCoord(Exif1)+','+FormatGoogleCoord(Exif2);
  // Aquí ya podes ir y pegar las coord. en google maps.
end;
Lo desconozco, pero suponiendo que CCR Exif te devuelve siempre el formato que publicaste en tu mensaje ([grados],[minutos],[seg+cen/100][pto.Card]), tendría que servirte. Lo he probado con varias localizaciones conocidas y se posiciona correctamente.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita