PREGUNTAS CONTESTADAS - Delphi≤nguaje=

Hay un total de 680 Preguntas.

<< >>

Pregunta:	19305 - NO. DE SERIE
Autor:	luis enrique mendoza
Como puedo hacer para obtener el no. de serie (de fabricación) de un cd. ??

Respuesta:	Luis Felipe García Gutiérrez
una forma mas sencilla sería... var w,Numero:DWord; begin GetVolumeInformation(PChar('C:\'),Nil,0,@Numero,w,w,Nil,0); end; y en "Numero" queda almacenado en número de serie de la unidad, y así como aquí se hizo con el disco C, éste se puede cambiar por la que necesites. Suerte!!!

Respuesta:

jorge luis guzman abreu

con este procedimiento.

procedure TForm1.Button1Click(Sender: TObject);

function AudioCDNum(Unidad: char):string;
var
mp : TMediaPlayer;
MInfo : TMCI_INFO_PARMS;
SerialN : array[0..255] of char;

begin
Result:='';
mp := TMediaPlayer.Create(nil);

try
with mp do
begin
Visible := false;
Parent := Application.MainForm;
Shareable := true;
DeviceType := dtCDAudio;
FileName := Unidad+':';
Open;
end;
Application.ProcessMessages;

FillChar(SerialN, sizeof(SerialN), #0);
FillChar(MInfo, sizeof(MInfo), #0);
MInfo.lpstrReturn := @SerialN;
MInfo.dwRetSize := 255;
if mciSendCommand(Mp.DeviceId,
MCI_INFO,
MCI_INFO_MEDIA_IDENTITY,
longint(@MInfo)) <> 0
then Raise Exception.Create('Error');
mp.Close;

Result:=String(SerialN);
finally
Application.ProcessMessages;
mp.free;
end;
end;

begin
Label1.Caption:=AudioCDNum('F');
end;

Contestar

Pregunta:	19487 - ERROR 'CLASS TGRADIENTE NO FOUND'
Autor:	Xochitl Mora
Estoy modificando un programa que respalde de otra maquina, y todo corre bien pero cuando quiero entrar a modificar alguna forma me muestra el siguiente mensaje "Class Tgradiente no found", y no me muestra la forma solo puedo ver el código de la unidad. ¿Alguien me puede ayudar con esto?

Respuesta:	Sanpipe Sanpipe
Dime con que version de delphi estas trabajando si es la de Delphi5 , pude ser que te falte instalar unos componentes Incluidos en el CD Complementario a delphi5 Companion Creo Que Se llaman LMDTOOLS espero que te sirva esto Enviame una respueta al mail por si resulto bien o mal

Contestar

Pregunta:	19587 - IMPRESION EN DUPLEX
Autor:	claudia hernandez
Gracias por leer mi pregunta. Espero que puedan ayudarme. Necesito imprimir un contrato por ambos lados, la impresora que se usa, permite imprimir en forma duplex, pero no se como usar la instruccion duplex desde delphi, agradeceria me ayudaran con este problema. GRACIAS

Respuesta:

Luis Cegarra

Creo que no debes de hacer nada desde delphi, tan solo enviar la orden a la impresora, como si de un salto de página o cambio de fuente se tratase ( no se si has visto algo de, por ejemplo, PLC4 de HP ); por ello debes ver el manual de la impresora, que seguro te indican que cadena has de mandarle a la impresora para hacer el duplex; ya que no indicas si utilizas algún componente tipo Report Builder o Crystal Report; supongo que si,por ello te cuento como he solventado yo un problema similar. Mi problema era que debía imprimir una hoja y luego retroceder el papel 10 líneas y volver a imprimir, por lo que la soulción que opté fue la siguiente :
1 - Imprimir la primera página normalmente.
2 - Abrir directamente el puerto de la impresora, y en binario ( usa por ejemplo las Turbo AsyncProl ) enviaba al puerto de la impresora en cuestión la cadena de retroceder carro.
3 - Imprimir la segunda página normalmente.

Creo que te puede valer.

Un saludo.

Contestar

Pregunta:	19798 - BORRAR REGISTROS DE UNA TABLA QUE NO SE ENCUENTRAN EN OTRA
Autor:	Eduardo Garcia
Hola Amigos: Mi problema es sencillo y en ningún manual de SQL encuentro respuesta. Quiero borrar de una tabla TABLA1.DBF los registros que no se encuentren en otra tabla TABLA2.DBF. Puedo hacer consultas a traves de JOIN que me devuelven los registros a borrar, pero no logro hacer lo mismo para su eliminación. Vale aclarar que los comandos SQL los estoy tirando desde un TQUERY de DELPHI y las tablas fueron creadas con FOXPRO. Desde ya, muchas gracias.

Respuesta:

claudia hernandez

NO SE SI YA PROBASTE ESTO:

PRIMERO AL OBJETO QUERY LE TIENES QUE PONER EN LA PROPIEDAD REQUESTLIVE:=TRUE
LUEGO PONES ESTA INSTRUCCION EN EL SQL DEL QUEY

DELETE FROM TABLA1
WHERE TABLA1.CAMPO NOT IN ( SELECT CAMPO FROM TABLA2)

SE SUPONE QUE "CAMPO" ES EL CAMPO A TRAVEZ DEL CUAL VAS A RELACIONAR AMBAS TABLAS POR EJEMPLO:

DELETE FROM PEDIDOS
WHERE CLIENTE NOT IN ( SELECT CVE_CLIENTE FROM CLIENTES)

BORRA DE LA TABLA PEDIDOS TODOS LOS REGISTROS DONDE LA CLAVE DE CLIENTE NO SE EXISTA EN LA TABLA CLIENTES

SE SUPONE QUE EN LA TABLA PEDIDOS HAY UN CAMPO QUE SE LLAMA CLIENTE Y EN LA TABLA CLIENTES HAY UN CAMPO QUE SE LLAMA CVE_CLIENTE Y AMBOS CONTIENEN UNA CLAVE DE UN CLIENTE.
ESPERO QUE NO TE HAYA HECHO BOLAS CON LA EXPLICACION
NO ES MUYT DIFICIL.
HASTA LA VISTA. CUALQUIER COSA PUEDES ESCRIBIRME A MI CORREO.

Contestar

Pregunta:	19914 - ABRIR REPORTES DE QUICKREPORT AL OPRIMIR UN BOTON
Autor:	William Olvera
quisiera saber como le puedo hacer para abrir directamente reportes creados previamente, es decir, quisiera que al clickear un boton saliera un cuadro de dialogo y pudiera escoger el QReport que quiera y entonces se le haga un preview al reporte escogido. Ayuda Porfa!!!! la necesito!!! he movido de todo y no se que hacer.

Respuesta:	Olger Navarro Guerrero
Coloca un boton y a este le agregas un PopapMenu en donde estaran definidos todos tus reportes, luego en cada OnClick de cada MenuItem le agregas el codigo que quieras.

Respuesta:

Marco Rodríguez

Te puedo dar una opción a tu pregunta.
Por que no ponés un Radiogroup con la cantidad de reportes que tenés. entonces ponés un botón al lado, al clikear el botón te hará una sentencia if como la siguiente:

if radiogroup1.ItemIndex = 0 then
'nombre del reporte'.preview
else if radiogroup1.ItemIndex =10 then
'nombre del reporte'.preview
Y haces tantos if como reportes tengas en el radiogroup
Nota: debés agregar el nombre de los reportes en la propiedad del rediogroup llamada Items.

Contestar

Pregunta:	20046 - COMO PUEDO COMPRIMIR EL TAMAñO DE UN EJECUTABLE?
Autor:	Christian Campillay
Hola, mmi nombre es Christian y tengo la siguiente duda, se puede comprimir el tamaño de un ejecutable (no comprimirlo con WINZIP), es decir, hay alguna forma de reducir el peso de un archivo??

Respuesta:	Antonio Ewok
Si se puede busca una herramienta que se llama upx y lo usas asi upx ejecutable.exe -o nuevo.exe Esta herramienta de lo deja mas pequeño y funciona igual. Ojala te sirva.

Respuesta:	Ulises Ruiz Huerta
Sip: Intenta eliminando la información de depuración del archivo. Si esto no funciona, intenta reduciendo el número de colores de las imágenes del programa (si las tiene) antes de cargarlas a los componentes. :) Suerte!

Contestar

Pregunta:	20125 - CODIGO DE BARRAS CON DELPHI 3
Autor:	Enrique Ortiz Herrera
Saludos amigos de LWP Estoy desarrollando un programa de inventarios en Delphi 3 y necesito generar e imprimir el codigo de barras de los articulos de una base de datos de Access, espero que alguien me pueda orientar en alguna forma de hacer esto. Se los agradezco de antemano.

Respuesta:	Vte Pascual
Yo utilizo QRBARCODE, (es gratuito) lo puedes encontrar en: http://www.torry.net/barcodes.htm tambien hay otros más, si tienes ganas de probar Saludos.

Contestar

Pregunta:	20238 - NO SE ABRE DELPHI 5
Autor:	Marcelo Núñez
Hola: Quiero consultarles por que no puedo abrir mi delphi 5, cuando lo abro me sale una ventana que dice: C:\Archivos de programa\Borland\Delphi\bin\bordbg50.exe -aeargs %ld %ld , oprimo "Yes" y cuando carga la presentacion se me paraliza todo el sistema operativo y tengo que resetear, que solución me pueden dar??? PD Trabajo sobre windows 98 Saludos amigos

Respuesta:	Ariel Vidal
Este problema se debe a la aceleración 3D de tu sistema, la solución lo mas probable que sea esta: Anda a propiedades de pantalla en escritorio,luego a configuración,avanzada,rendimiento y en aceleración de hardware marca con el deslizador la segunda posición empezando por la izquierda. Espero que te sirva

Contestar

Pregunta:	20400 - ENLAZAR ENSAMBLADOR A DELPHI
Autor:	Xiomara Pérez Fernández
Realicé un programa en Ensamblador que recibe datos a través del puerto serial, este programa lo necesito enlazar a Delphi, pero no sé cómo hacerlo. Además una vez enlazado debo sacar el valor que está en el registro acumulador para accesar una base de datos en Oracle. Cómo saco ese valor, para rabajarlo en Delphi.

Respuesta:

Santiago Estupiñan

Hola

Ya probaste con insertar tu programa en ensamblador dentro de delphi, esto lo aces de esta manera.

Creas una función donde se debuelba tu registro acumulador

function Resultado:El tipo a utilizar
asm //utilizas asm en ves de begin
//tu codigo
Result:=tu registro acumulador
end;

prueba con esto esta es la forma de insertar codigo en ensamblador con delphi

otra cosa es llamar tu codigo obj con la directiva

{$L fichero.obj}

y despues yamas tu funcion o procedimiento y lo corres.

Saludos y ojala que resulvas

Contestar

Pregunta:	20611 - COMO VERIFICAR SI UN ORDENADOR REMOTO ESTA ACTIVO
Autor:	Andres ojeda franco
Hola, sabe alguien cómo puedo verificar si un ordenador remoto específico está activo? Gracias...

Respuesta:	t20 em2
puedes hacerlo atraves de sockets hay una pagina q t podria servir www.delphiladero.com

Contestar

|< << 33 34 35 36 37 38 39 40 41 42 43 >> >|