Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-06-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Poder: 17
BuRtOn Va por buen camino
Pasar el nombre de un archivo .zip a un Edit.

Saludos amigos, miren lo que nesecito hacer es lo siguiente:

Tengo un Edit donde coloco el nombre del archivo que voy a generar como backup, y su extension es .zip, y junto a el 3 botones uno que es comprimir otro que es descomprimir y el ultimo que es eliminar...bueno este es el codigo que tengo en el boton de comprimir:

btn_Comprimir:

Código Delphi [-]
procedure TfrmBackup.ComprimirClick(Sender: TObject);
begin
FileRun1.Directory:=ExtractFilePath(Application.ExeName);
FileRun1.FileName:='zip.exe';
FileRun1.Parameters:=ExtractFilePath(
 Application.ExeName)+'Backupbd\'+Edit1.Text+'.zip '+
  ExtractFilePath(Application.ExeName)+'bd\*.*';
FileRun1.Execute;
end;

este otro es lo que tengo en el boton descomprimir:

btn_Descomprimir:

Código Delphi [-]
procedure TfrmBackup.DescomprimirClick(Sender: TObject);
begin
opdAbrir.InitialDir := ExtractFilePath(Application.ExeName)+'Backupbd';
if (opdAbrir.Execute)then
begin
FileRun1.Directory := ExtractFilePath(Application.ExeName);
FileRun1.FileName := 'unzip.exe';
FileRun1.Parameters := opdAbrir.FileName+' -d D:\';
FileRun1.Execute;

end;
end;

y pues como se pueden dar cuenta, lo que hace este codigo, es generar un backup de mi base de datos llamada bd en una carpeta que se llama backupbd, aqui se guarda el archivo .zip que genere, ahora lo que nesecito es que cuando le de en el boton eliminar se extraiga el nombre del archivo seleccionado y pase a un Edit, algo asi, ejemplo:


Backupbd ---> Copiaseguridad.zip

nesecito que en el edit me quede asi:

[Copiaseguridad]

algo asi es lo que yo trate de hacer, pero no tengo ni idea de como extraer el nombre:

Código Delphi [-]
procedure TfrmBackup.Button4Click(Sender: TObject);
begin
opdAbrir2.InitialDir := ExtractFilePath(Application.ExeName)+'Backupfotos';
if (opdAbrir2.Execute)then
begin
// aqui es donde trato de extraer el nombre del fichero .zip y pasarlo al edit, 
// para que el usuario se de cuenta del archivo que va a eliminar.
Edit2.Text:= ExtractFilePath(Application.ExeName);
if FileExists('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ')=true then
begin
DeleteFile('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ');
Edit2.Clear;
end;
 end;
end;


Gracias por su tiempo prestado, espero que alguien me pueda ayudar....

Última edición por dec fecha: 30-06-2008 a las 19:52:56.
Responder Con Cita
  #2  
Antiguo 30-06-2008
Avatar de Lord Delfos
Lord Delfos Lord Delfos is offline
Miembro
 
Registrado: ene 2008
Ubicación: Tandil, Argentina
Posts: 558
Poder: 17
Lord Delfos Va por buen camino
Pues, si entiendo bien lo que querés es hacer algo, digamos:

Tengo "C:\Esta ruta es\la del archivo\a\borrar.zip" y quiero quedarme con "borrar"

¿Es eso?

Pues eso podría hacerse así:

Código Delphi [-]
Edit1.Text:=ChangeFileExt(ExtractFileName(ElNombreDelArchivo),'');

Espero sirva de algo.

Saludongos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Pasar datos de un edit a un bdgrid mar_a Varios 3 23-04-2008 01:28:16
Pasar datos de un DBGrid a un Edit deadsystems Varios 7 11-03-2007 22:31:36
Asignar nombre a un fichero a traves de un edit pepecharlie67 Varios 5 27-12-2005 21:07:11
pasar el nombre de una tabla en un parametro saul saldaña Firebird e Interbase 2 11-06-2004 21:05:55
Pasar nombre de tabla en SP __cadetill Firebird e Interbase 4 19-09-2003 20:48:00


La franja horaria es GMT +2. Ahora son las 21:15:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi