Nombre largo

[aromigaret]

Hola, tengo un inconveniente con una aplicación que hice. Si la ejecuto en la PC donde tengo instalado Delphi xe5, encuentra y opera con tablas cuyo nombre es de esta característica: PE1234567890123456.dbf, pero al querer ejecutar dicha aplicación en otra pc, no encuentra la tabla. Si achico el nombre a 8 caracteres, la encuentra. Decidí instalar el xe5 en esa otra PC, ejecute la aplicación y anduvo, mi pregunta es si alguien sabe que api o función se instala con el xe5 y es la que permite leer archivos con nombre que supere los 8 caracteres, ya que es ilógico instalar en cada PC el xe5. Desde ya muchas gracias.

[Casimiro Notevi]

¿Tiene msdos?

[aromigaret]

Hola Casimiro, gracias por responder. Ambas Pcs tienen instalado win7 32bits. Si tu pregunta es si tengo acceso al msdos, la respuesta es si.

[[AgustinOrtu]]

Como buscas el archivo?
Como lo abris?
Que excepción se genera?
Estas usando una ruta absoluta o relativa?
Que pasa si pones el archivo en c:\?

No creo que Delphi instale ninguna API para abrir archivos de nombre largo. Menos en windows 7...

Proba cargar un archivo con "nombre largo" en un string list por ejemplo para despejar dudas

[aromigaret]

AgustinOrtu, te comento la operatoria del sistema:

Recibo por Ftp, tablas que contienen un pedido de mercadería, el nombre de la tabla esta conformada por 'PE' + Código Cliente + Código Vendedor + día + mes + hora + min, un ejemplo 'PE0215000119110925.DBF'.
Estas tablas están en el directorio 'C:\pedidos', mismo directorio donde se ejecuta la aplicación. En dicha aplicación, simplemente tengo un adoquery ('pedido') y cargo los datos de esta tabla, para luego procesarlos.

La sentencia para abrir la adoquery es :

Código Delphi [-]
pedido.sql.text:='select * from ' + nombre_tabla;

donde nombre_tabla es un string con el nombre de la tabla a leer.

La excepción que aparece es la siguiente :

Código Delphi [-]
[Microsoft][Controlador ODBC dBase] El motor de base de datos 
Microsoft Jet no pudo encontrar el objeto ''PE0215000119110925.DBF'.
Asegúrese de que el objeto existe, y que ha escrito el nombre y la ruta
de acceso al objeto correctamente.

Como dije antes, yo tampoco creo que haya que instalar xe5 en cada pc, pero es evidente que "algo cambia" al hacerlo. Por eso quisiera saber que es para que funcione la aplicación.

Gracias

[Neftali [Germán.Estévez]]

Las RxLib, en la unit FileUtil.pas tienen la siguiente función, que tal vez te sea útil (te pongo la 4):

Código Delphi [-]
function ShortToLongFileName(const ShortName: string): string;
var
  Temp: TWin32FindData;
  SearchHandle: THandle;
begin
  SearchHandle := FindFirstFile(PChar(ShortName), Temp);
  if SearchHandle <> INVALID_HANDLE_VALUE then begin
    Result := string(Temp.cFileName);
    if Result = '' then Result := string(Temp.cAlternateFileName);
  end
  else Result := '';
  Windows.FindClose(SearchHandle);
end;

function LongToShortFileName(const LongName: string): string;
var
  Temp: TWin32FindData;
  SearchHandle: THandle;
begin
  SearchHandle := FindFirstFile(PChar(LongName), Temp);
  if SearchHandle <> INVALID_HANDLE_VALUE then begin
    Result := string(Temp.cAlternateFileName);
    if Result = '' then Result := string(Temp.cFileName);
  end
  else Result := '';
  Windows.FindClose(SearchHandle);
end;

function ShortToLongPath(const ShortName: string): string;
var
  LastSlash: PChar;
  TempPathPtr: PChar;
begin
  Result := '';
  TempPathPtr := PChar(ShortName);
  LastSlash := StrRScan(TempPathPtr, '\');
  while LastSlash <> nil do begin
    Result := '\' + ShortToLongFileName(TempPathPtr) + Result;
    if LastSlash <> nil then begin
      LastSlash^ := char(0);
      LastSlash := StrRScan(TempPathPtr, '\');
    end;
  end;
  Result := TempPathPtr + Result;
end;

function LongToShortPath(const LongName: string): string;
var
  LastSlash: PChar;
  TempPathPtr: PChar;
begin
  Result := '';
  TempPathPtr := PChar(LongName);
  LastSlash := StrRScan(TempPathPtr, '\');
  while LastSlash <> nil do begin
    Result := '\' + LongToShortFileName(TempPathPtr) + Result;
    if LastSlash <> nil then begin
      LastSlash^ := char(0);
      LastSlash := StrRScan(TempPathPtr, '\');
    end;
  end;
  Result := TempPathPtr + Result;
end;