PREGUNTAS CONTESTADAS - Delphi

 Hay un total de 680 Preguntas.<<  >> 

    Pregunta:  50304 - MINIMO COMUN MULTIPLO
Autor:  ana emma Reyes Otero
como puedo sacar el minimo comun multiplo de dos fracciones en delphi?
  Respuesta:  Luis Felipe García Gutiérrez
segun la definición...
El mínimo común múltiplo («m.c.m.» o «mcm») de dos o más números naturales es el menor número natural que es múltiplo de todos ellos. Para el cálculo del mínimo común múltiplo de dos o más números se descompondrán los números en factores primos y se tomarán los factores comunes y no comunes con su mayor exponente.
Por ejemplo, de las factorizaciones de 6936 y 1200,
6936 = 23 · 3 · 172
1200 = 24 · 3 · 52
podemos inferir que su m.c.m. es 24 · 3 · 52 · 172 = 346 800.
tomada de http://es.wikipedia.org/wiki/Mínimo_común_múltiplo.

podríamos empezar por descomponer los números en sus factores primos... para ello necesitarás unas cuantas variables, en éstas últimas tendrás dos contadores y otra mas en la que almacenarás el número luego de cada división, uno de los contadores lo inicializas en 2 el cual será el divisor y el segundo en 0 el cual almacenará la cantidad de veces que dividas por un mismo número.
a la variable de almecenamiento, le asignas el número que necesitas descomponer en sus factores primos.
inicias un ciclo mientras divisor <=número, posteriormente preguntas si el residuo del número / divisor es 0; de ser 0 entonces al número lo haces igual al numero/divisor e incrementas el contador de ocurrencias(divisiones); si no es 0 entonces preguntas si el contador de ocurrencias es mayor que 0, de ser así almacenas ambos valores el divisor y las ocurrencias, ya sea por separado en una matriz o concatenándolos en un vector, incrementas el divisor y retornas a 0 el contador de ocurrencias.

Ésto lo haces con ambos números... luego dependiendo en qué hayas guardado los resultados los extraes si fueron matrices o con funciones de cadena los extraes si fueron vectores y comparas en ambos casos, ya lo demás es carpintería, elevando los números(divisores) a sus respectivas potencias(ocurrencias) y haciendo la productoria de los resultados...

espero haberte sido útil... suerte y si persiste tu duda escribeme un correo!

    Pregunta:  50312 - COMO VEO UNA IMAGEN EN QREPORT YA ALMACENADA
Autor:  ricardo martinez
Hola:

Tengo un problema que es el siguiente tengo una tabla en access y un campo que le he llamado foto ahi es donde almaceno la ruta de la imagen pero al crear el reporte en delphi no me aparece nada solamente los campos de texto y la imagen no aparece en el objeto QRimage necesito que me ayuden que codigo poner para que llame la imagen desde mi tabla, espero su ayuda y de antemano gracias.

Atte: Ricardo
  Respuesta:  Luis Felipe García Gutiérrez
Ésto se parece mucho a una pregunta que respondí tan sólo ayer, pero bien, aquí vá:

En principio se debe insertar un objeto QRImage de la solapa QReport, luego ya sea desde el evento que llama el reporte o en el evento OnPreview del reporte se inserta el siguiente código:

QRIngreso.QRIFoto.Picture.LoadFromFile(ruta+nombre+'.jpg');

Donde ruta es una cadena que contiene la ubicación del archivo (foto) que para éste caso específico es el valor del campo almacenado en la BD, concatenada con el nombre del mismo mas el formato del archivo (.jpg).

...y listo tenemos cargado en el reporte la foto que necesitabamos recuperar.

Mucha Suerte!!!

    Pregunta:  50629 - CONEXION RED SQL
Autor:  manuel martinez
Tengo una aplicacion en delphi7, en un servidor con sql 2000 y cuando son varios los terminales que aceden simultaneamente a una opcion el mismo me da el siguiente error, "directory is controlled by ather net file directory c:\
\\servidor\ubicacion aplicacion en servidor
pdoxusrs.lck "

pero si pongo en cada terminal la aplicacion y trabajan contra la bases de datos del servidor va correctamente.

Donde puede estar el error?

Gracias de antemano
Un Saludo
  Respuesta:  Santiago Estupiñan Diaz
Me parece que tu problema es el siguiente, que objeto usaste para hacer el enlace SQL, con los objetos ADO resuelves este problema realisando una conexion al servidor SQL, con el ADOConecction y haciendo consultas con el ADODataset, y de esta manera el ODBC te maneja las conecciones y no tienes que declarar archivos de enlace como lo hace paradox en este caso con el archivo pdoxusrs.lck, que resuelvas Saludos.

Santiago

    Pregunta:  50710 - ELIMINAR REGISTROS ADO
Autor:  bkx
Haver si alguien puede echarme una mano en mi problema.

Estoy realizando una pequeña aplicacion en delphi 7 con una base de datos ADO.
Mi problema es que no me deja eliminar todos los registros de la tabla.

Si borro uno ningun problema. Si intento borrarlos todos uno a uno me da el mismo error.

Si intento borrar toda la tabla con ADOtable1.deleterecords;
me indica el siguiente error : La operación no esta permitida en este contexto.

gracias por buestra ayuda.
  Respuesta:  Santiago Estupiñan Diaz
El problema lo puedes resolver de la siguiente forma con las siguientes lineas

for i:=1 to ADOTable1.recordcount do
begin
ADOTable1.delete;
ADOTable1.next;
end;

De esta forma eliminas todos los records que tiene la tabla, sin problema ninguno

Saludos que resuelvas.

    Pregunta:  50794 - CPORTLIB COMO MANDO UN CARACTER "P" AL SERIAL
Autor:  Lalo Charles
CPORTLIB COMO MANDO UN CARACTER "P" AL SERIAL

ComPort.Connected := True;
ComPort.Open;

AQUI DEBERIA IR PARA MANDAR UN CARACTER A LA BACULA UNA
"p" ¿ CUAL ES LA SINTAXIS?

ComPort.ReadStr(Str, Count);
Edit1.Text := Str;
el_peso := Edit1.text;
  Respuesta:  Fidel Garcia
En el evento click de un boton por ejemplo:

var
str: string;
begin

str := 'p';

//ComPort.ReadStr(str, Count); ES PARA LEER DESDE EL PUERTO SERIE

ComPort.WriteStr(Str);
Edit1.Text := Str;
el_peso := Edit1.text;

end;

    Pregunta:  50867 - TBDLOOKUPCOMBOBOX
Autor:  Sid Ragasoom
Hola amigos,

Tengo un lookupcombobox, el cual contiene aprox. 15 elementos. Quisiera agregar un elemento más, el cual signifique que se selecciona TODOS los elementos y poder hacer que el Tquery seleccione TODOS los registros.

¿como podría hacer?

Desde ya, muchas gracias.
  Respuesta:  Luis Felipe García Gutiérrez
tendrías que crear un registro en esa tabla que diga "Todos" y al momento de salir del dblcbox validar la selección; si es "Todos" enviar la consulta al objeto TQuery.SQL.text:='select * from tabla;' sino segir con la ejecución normal del programa...

espero sea útil la solución!

    Pregunta:  51262 - ABRIR ARCHIVOS DE AYUDA CHM CON DELPHI 6
Autor:  nasita
Hola:
Por favor, necesito me ayuden con esta duda, estoy tratando de abrir un archivo de ayuda con formato html hecho en help & manual con delphi, al parecer hay un paquete de componentes que te ayudan, el componente se llama THelpRouter, ya lo instale y al parecer toma la ruta del archivo desde la opcion (en delphi) project -> options -> help file (la opcion que tiene delphi para ubicar los archivos de ayuda) y lo detecta automaticamente, pero no me ha resultado, no lo abre...
Alguien puede ayudarme a resolver este problema, se supone que no tengo que direccionar el archivo chm, que toma la direccion desde la ubicacion que arriba menciono.
Mil Gracias
  Respuesta:  Digital Dragon
hola:
Vamos a ver si entendi lo que preguntaste
si lo que quieres es abrir un archivo de ayuda chm desde una aplicacion este codigo te ayudara.

en la uses pones la libreria shellapi,

procedure Form1.Button1.Click (Sender: TObject);
begin
ShellExecute(handle, 'open', Pchar( 'ubicacion de tu archivo con extencion .chm' ), nil,nil, SW_SHOWNORMAL):
end;

esto llamara tu archivo chm de ayuda.

    Pregunta:  51387 - ERROR CON EL TADOTABLE
Autor:  ARNOLD CHARRIS
Hola quisiera que me colaboraran con este error.
Mi Base de Datos esta en Oracle y mi aplicacion esta desarrollada Cliente/Servidor en Delph, Utilizo los componentes ADO para las conexion y el ADOTable para las tablas. Resulta que Cuando activo las tablas y ejecuto en modo diseño osea con F9 me sale un error "Invalid Variant Operation". Pero si la aplicacion la compilo ctrl+F9 y despues Build Osea creo el ejecutable y lo ejecuto la aplicacion me corre prefecto y todas las tablas se activan bien. Osea cada vez que haga un cambio tengo que ejecutar el .EXE para poder probar. y no aguanta Quisiera saber aque se debe esto gracias. Espero su pronta respuesta.
  Respuesta:  Santiaogo Estupiñan Diaz
Te aconsejo que uses el TADODataset para que hagas tus conecciones, este objeto es mejor que el tadotable, el activa su conección mediante una consulta SQL en la propiedad conecction, que resuelbas, saludos Santy.

    Pregunta:  51845 - CóMO EJECUTAR SOLAMENTE MI PROGRAMA
Autor:  Reynier Reyes Zayas
Hola, necesito saber si hay algún código para que en Delphi7 cuando yo ejecute la aplicación el usuario no pueda hacer más nada que trabajar con el programa y cuando el usuario cierre la aplicación pues que windows vuelva a su estado normal y el usuario pueda trabajar normalmente, pues un saludo, si me pueden ayudar gracias.
  Respuesta:  Erwin Perez
Algo que me ha funcionado por el momento para usuarios no expertos es lo siguiente:
Al abrir la aplicacion cierras el entorno del escritorio y nevegador de windows:

ShellExecute(0, 'open', 'taskkill.exe', '-IM "explorer.exe" /F',
'', W_SHOWNORMAL);

luego al cerrarlo lo restauras:

ShellExecute(0, 'open', 'explorer.exe', '', '', SW_SHOWNORMAL);

Esto no es lo ideal, ya que si ya hay aplicaciones abiertas aun se puede cambiar con alt-tab, pero si evita que usuarios no expertos inicien nuevas aplicaciones.

Lo ideal seria que colocaras un hook para el teclado y mouse, con lo cual estarias en total control de lo que puede o no hacer el usuario.

La solucion que planteo es muuucho mas sencilla, es cosa de que veas si te sirve para tu aplicacion.

    Pregunta:  51854 - COMO ABRIR UNA BD DE ACCESS EN MODO COMPARTIDO
Autor:  Jose Cacres
Mi objetivo es poder compactarla desde mi programa delphi, yo uso ADO para acceder al .mdb, y tengo el código para compactar que funciona de lo más bien, pero cuando lo voy a aplicar a mi BD me dice que no puede hacerlo por que está en uso exclusivo por el usuario \"yo mismo\" y aborta la operación debido al error.

Para que tengan idea de lo que sucede con mi aplicacion:

Cuando inicio mi aplicación conecto y abro las tablas necesarias de la BD Access
En una de las opciones quiero compactar mi BD, para ello desconecto el ADO y mando a compactar. Pero en este punto da el error de que no puede porque esta en uso.

Espero hayan entendido lo que me sucede
  Respuesta:  Jose Olalla
Comprueba que eso solo ocurre cuando ejecutas la aplicacion desde el entorno de programación (prueba cerrando delphi).
Si solo te ocurre con delphi abierto entonces es que tienes algun TADOConnection con la propiedad active forzada a true desde el Inspector de Objetos.
Ponlas a false y activalas solo por código.

Salu2.
  Respuesta:  << neox >>
Hola..
Hay dos posibles causas..
1. Es probable q tengas la BD abierta en un editor de bases de datos (MSAcces), o después de aberla cerrado tu pc no haya podido cerrarla bien.

2. Es muchos casos no basta con desconectar el ADO. Tendrás q cerrar la sesion de la BD tambien.

Soluciones.
Utiliza una base de datos de prueba (diferente a la q usas), si es posible abre las dos al tiempo.
Sino te sirve.. en este momento estoy revisando tu caso
Suerte..

|<  <<  57 58 59 60 61 62 63 64 65 66 67  >>  >|