Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Abrir un archivo de autocad desde Delphi (https://www.clubdelphi.com/foros/showthread.php?t=12417)

camelumi 15-07-2004 19:17:44

Abrir un archivo de autocad desde Delphi
 
Necesito hacer una aplicacion que me abra un dibujo hecho en autocad a partir de una ruta establecida dentro de un campo de la base de datos


espero me pueda ayudar, mil gracias

delphi.com.ar 15-07-2004 20:22:16

Un hilo reciente: http://www.clubdelphi.com/foros/showthread.php?t=12131

Saludos!

camelumi 15-07-2004 21:56:16

No es lo que tenia en mente, yo lounico que necesito es ejecutar dentro de delphi el Autocad o el VOloview para ver el archivo que tengo guardado en la ruta que almacene dentro de un campo, nos e si ahora esta un poco mas claro

delphi.com.ar 15-07-2004 22:06:09

Ahhh... mas sencillo!
Los archivos de cualquier extención que tengan asociados algún programa, puedes abrirlos mediante la WinApi ShellExecute:
Código Delphi [-]
ShellExecute(Handle, 'open', 'c:\mis documentos\MiArchivo.dxf', nil, nil, SW_SHOW);

camelumi 15-07-2004 22:21:18

gracias, Acabo de intentarlo pero....

Ahora como paso el valor del DBEdit (ahi esta la ruta porque el archivo es variable) al Shell Exute

Tengo almacenado ejemplo

d:\63015\Sensor.dwg


Espero me puedas ayudar

delphi.com.ar 15-07-2004 22:27:47

Puedes hacerlo mediante el DBEdit:
Código Delphi [-]
ShellExecute(Handle, 'open', PChar(DBEdit1.Text), nil, nil, SW_SHOW);
O accediendo directamente al campo:
Código Delphi [-]
ShellExecute(Handle, 'open', PChar(Query1.FieldByName['CAMPO'].AsString), nil, nil, SW_SHOW);
Saludos!

camelumi 15-07-2004 22:33:23

Muchisimas gracias Delphi.com.ar te sacaste un 10 listo esta tratando de buscar pero no haya como pasar a PCHAR el contenido del campo, pues veras que no soy muy trucho.


Nuevamente gracias


Saludos


La franja horaria es GMT +2. Ahora son las 20:41:04.

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