cambiar extension
 

hola gente alguno sabe como poder cambiar la extension de un archivo mediante codigo delphi?

gracias

Hola,

Puedes utilizar la función de la unidad "SysUtils" "ChangeFileExt" para obtener la ruta de un archivo "con otra extensión". Si lo que quieres es que los cambios surtan efecto en el propio archivo deberás valerte de la función "RenameFile" combinándola con la anterior, es decir, algo más o menos como esto:

Código Delphi [-]
const
  archivo = 'C:\archivo.bmp';
begin
  RenameFile(archivo, ChangeFileExt(archivo, '.jpg');
end;

Si tienes el nombre del archivo en un string, y quieres cambiarle la extención puedes utilizar la función ChangeFileExt definida en la unit SysUtils, y si este archivo es un archivo del FileSystem puedes utilizar RenameFile para cambiar el nombre del archivo:

Código Delphi [-]
var
  AFileName: TFileName;
begin
  AFileName := 'c:\MiArchivo.txt';
  Win32Check(RenameFile(AFileName, ChangeFileExt(AFileName, '.dat')));

Saludos!

Esos dedos Federico, hay que aceitarlos un poco :D :p

// Saludos

Hola,

No, no; No es que esté lento Federico sino que yo soy como el rayo y no tengo abuela. :D :D :D

Estoy totalmente fuera de forma!! :D...
Creo que mis dos últimas participaciones en hilos nuevos fueron calcadas :D

hola chicos
 

La verdad que esta muy bueno para cambiar de extencion pero fijandome bien necesito cambiar por ejemplo un tipo de archivo dbf 4 (dbase IV) que es .dbf a otro tipo dbf 3 (dbase III) que tambien es .dbf. Les agradezco al respuesta
Saludos

oops, Creo que esto da al traste con todo lo anteriormente expuesto.

A esto le llamo yo una pequeña precisión a un problema.:D:confused::eek::rolleyes::cool::mad:


Saludos

ya lo solucione...
 

Luego de programar horas y horas y buscar informacion me di cuenta que si reseteo el byte 28 del archivo dbf evitare que salga el error "index not found" (que me indica que los indices del archivo estan estropeados)
Para ello cree una funcion a la cual se le pasa el path o direccion de donde se encuentra la tabla DBF y luego resetea el byte 28.
Buenisismo!:)

Código Delphi [-]
procedure PasarDBF3(DireccionTabla : string);
var sArchivo: String ;
    F: File of byte;
const Value: Byte = 0;
begin
sArchivo := DireccionTabla;
AssignFile(F, sArchivo);
Reset( F ) ;
Seek(F, 28);
Write(F, Value);
CloseFile( F );
end;