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 15-10-2006
Avatar de Ascii1457
Ascii1457 Ascii1457 is offline
Miembro
 
Registrado: oct 2006
Posts: 20
Poder: 0
Ascii1457 Va por buen camino
Drag&Drop de un archivo a mi aplicacion...

Bueno, este es mi primer post y a decir verdad recién comienzo con lo que es Delphi para una aplicación +/- extraña @_@… y realmente espero que esta pregunta no se preguntara mil veces y sea una molestia... ya que realmente me canse buscando algo que me pudiera aclarar como se puede saber el Path completo de un archivo o directorio que se arrastre de Windows hacia mi aplicación… realmente he buscado bastante sobre el tema, y pues al final he terminado posteando ♥.

Bueno, si es posible apreciaría que me pusieran un ejemplo o si tienen algún link que explique esto, me lo dieran… o simplemente díganme que siga buscando en el foro que la respuesta esta (espero que esta no sea su opción)… x_x

A… estoy usando BDS 2006 y pues agradezco desde ya su ayuda. yep yep ^_^
Responder Con Cita
  #2  
Antiguo 15-10-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

El siguiente código está basado en el que un compañero publicó en cierto Hilo en estos Foros hace un tiempo.

Código Delphi [-]
unit Unit1;

interface

uses
  Forms, Messages;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure OnDragDrop(var msg:TWMDropFiles); message WM_DROPFILES;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Windows, ShellApi, Dialogs;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Self.Handle, true);
end;

procedure TForm1.OnDragDrop(var msg: TWMDropFiles);
var
  archivo:array[0..MAX_PATH] of char;
begin
  DragQueryFile(msg.drop, 0, archivo, sizeof(archivo));
  try
    ShowMessage(archivo);
  except
    MessageBox(handle, 'No pude abrir el archivo', nil, MB_ICONERROR);
  end;
  DragFinish(msg.drop);
end;

end.

Quedaría adentrarse un tanto más y comprobar, por ejemplo, si se "arrastraron" varios archivos al formulario de marras.

Edito: No me quedo muy a gusto con el código anterior. Ese bloque "try .. except" no me acaba de convencer. En todo caso, sirva como idea que puede tomarse para seguir adelante. Por ejemplo, esta podría ser una forma (no digo que no haya más porque no me he molestado en comprobarlo) de atender a todos los archivos arrastrados al formulario:

Copio el código del método "OnDragDrop" únicamente; el resto del código fuente no cambia:

Código Delphi [-]
procedure TForm1.OnDragDrop(var msg: TWMDropFiles);
var
  i: integer;
  archivo: array[0..MAX_PATH] of char;
begin
  i := 0;
  while DragQueryFile(msg.drop, i, archivo, sizeof(archivo)) <> 0 do
  begin
    Inc(i);
    ShowMessage(archivo);
  end;
  DragFinish(msg.drop);
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 15-10-2006 a las 15:48:07.
Responder Con Cita
  #3  
Antiguo 15-10-2006
Avatar de Ascii1457
Ascii1457 Ascii1457 is offline
Miembro
 
Registrado: oct 2006
Posts: 20
Poder: 0
Ascii1457 Va por buen camino
Wuaaaaaaaaaaaaaaaaaaaaa.......

Me funciono luego de darle un par de vueltas al código y entenderlo. >=)

Bueno, igual lamento a verte echo perder el tiempo siendo que en el foro estaba esta información U_U ... pero bueno, muchísimas gracias por tu tiempo y pues... creo que estaré posteando bastante desde ahora con mis dudas O_O

Eso… adiós y garcíasssssssss ^_^

PD: Te pediría también como saber las propiedades del archivo (tamaño, fecha creación, etc)... pero eso ya es mucho ... así que =X no dije nada =X

Última edición por Ascii1457 fecha: 15-10-2006 a las 15:57:50.
Responder Con Cita
  #4  
Antiguo 15-10-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Podría decir aquí mismo cómo podrías conseguir la fecha de creación de un archivo, su tamaño, etc.,... pero, prefiero remitirte al apartado de trucos del ClubDelphi. Echa un vistazo, concretamente, en el subapartado "Delphi - Ficheros y disco".

Por cierto. Sé bienvenido al ClubDelphi. Echa un vistazo a la guía de estilo de los Foros, por favor, antes o después de consultar el apartado de trucos.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #5  
Antiguo 15-10-2006
Avatar de Ascii1457
Ascii1457 Ascii1457 is offline
Miembro
 
Registrado: oct 2006
Posts: 20
Poder: 0
Ascii1457 Va por buen camino
Okey =D

Gracias por la bienvenida y la paciencia para darme toda esta información... de todas maneras casi todas mis dudas están siempre respuestas en el foro... es cosa de usar el buscador la mayor parte del tiempo… pero ahora por cosa de suerte o no se que, pase horas buscando y realmente me arte de buscar sobre esto del Drag&Drop y saber el Path del File @_@

Bueno, eso es todo por ahora... jojojo

A.. un ultimo detalle... Mi aplicación también tiene la función de reproducir archivos de audio y video... y pues el TMediaPlayer trabaja con la API Winmm, y pues no se si sea una buena opción o buscar mejor con directshow... entonces quería ver que dice la experiencia de un programador con mas tiempo en esto de Delphi, ya que realmente esto de reproducir es un agregado cultural a mi aplicación nada mas... y por las pruebas que he echo funciona impecable en mi PC... bueno, esa es mi ultima duda a ver si aun queda paciencia para responderme.. =D

Última edición por Ascii1457 fecha: 15-10-2006 a las 16:45:04.
Responder Con Cita
  #6  
Antiguo 15-10-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

A preguntas distintas deberían abrirse Hilos distintos, más que nada para no mezclar temas y para que luego sea más sencillo localizar información llevando a cabo búsquedas en los Foros.

Respecto de lo que dices, no tengo mucha experiencia, pero, el "TMediaPlayer" puede ser una buena opción para reproducir audio y vídeo en aplicaciones desarrolladas con Delphi.

No quisiera resultar cansino, como suele decirse, pero, en los Foros encontrarás información y enlaces interesantes acerca del componente "TMediaPlayer".
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #7  
Antiguo 15-10-2006
Avatar de Ascii1457
Ascii1457 Ascii1457 is offline
Miembro
 
Registrado: oct 2006
Posts: 20
Poder: 0
Ascii1457 Va por buen camino
Cita:
Empezado por dec
Hola,

A preguntas distintas deberían abrirse Hilos distintos, más que nada para no mezclar temas y para que luego sea más sencillo localizar información llevando a cabo búsquedas en los Foros.

Respecto de lo que dices, no tengo mucha experiencia, pero, el "TMediaPlayer" puede ser una buena opción para reproducir audio y vídeo en aplicaciones desarrolladas con Delphi.

No quisiera resultar cansino, como suele decirse, pero, en los Foros encontrarás información y enlaces interesantes acerca del componente "TMediaPlayer".
Yaaaaaa... ahora si que no molesto mas, no hice un post distinto ya que quería ver tu opinión, ya que según mis primeras impresiones tienes conocimiento, y como te tenia en atencion al post 8-) ... pues quería ver tu opinión... así que nada mas...

Ahora me desaparezco y sigo aprendiendo esto de Delphi que se me hace complicado a ratos... >_<

Mil perdones por ser tan insistente… pero tengo como un millón de preguntas por estar iniciándome en este lenguaje, pero ya… mas que feliz con tu ayuda y recomendación acerca de TMediaPlayer… así que desaparezco =D

1K Gracias dec =D

Última edición por Ascii1457 fecha: 15-10-2006 a las 17:12:36.
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
Drag & Drop DanForever Varios 2 01-06-2006 15:24:25
drag & drop desde mi aplicacion ebeltete API de Windows 8 04-03-2005 17:21:50
Drag&Drop !!! rafstyle OOP 6 27-07-2004 05:39:41
Drag&Drop xflo Lazarus, FreePascal, Kylix, etc. 0 13-10-2003 20:31:22
Drag & Drop cone220 Varios 1 26-05-2003 20:06:34


La franja horaria es GMT +2. Ahora son las 01:55:18.


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