PREGUNTAS CONTESTADAS - Delphi≤nguaje=

Hay un total de 680 Preguntas.

<< >>

Pregunta:	4483 - CALCULO DE UN INTERVALO TIEMPO
Autor:	Angel Geraldo
Como puedo hacer un algoritmo que dando una fecha inicial y una fecha final me diga que cantidad de años, meses y días han pasado de una fecha a otra.. De ante mano muchas gracias....

Respuesta:	Carmelo
Puedes tener ambas fechas en sendas variables del tipo Tdate y hallar la diferencia, por ejemplo: f_inicio:='01/01/2001'; f_final:='31/01/2001'; dias:=f_final-f_inicio; Semanas:=dias/7; - - - Más o menos.

Contestar

Pregunta:	4485 - COMO PUEDO CHEQUEAR SI ESTA LISTA LA IMPRESORA EN PUERTO LPT
Autor:	Roberto Martinez Olvera
Hice un programa que imprime en una impresora local conectada al puerto lpt1, estoy usando la instruccion Writeln, escribiendo al puerto ´LPT1´, el problema es que si la impresora no esta lista se bloquea. ¿Como puedo checar si esta lista la impresora o no? Ya intente con IOResult, con la interrupcion 17h y no. Alguien puede ayudarme...Gracias

Respuesta:

Omar Silva Muñoz

Forma Delphi:
function IsPrinter:boolean;
var
Impresora:TExtFile;
begin
AssignFile(Impresora,´lpt1´);
{$I-}
Rewrite(Impresora);
{$I+}
if ioresult<>0 then
result:=False // impresora er
else
result:=True; // impresora ok
end;

Forma Ensamblador:

function IsPrinter:boolean;
const
PrnStInt:byte=$17;
StRq:byte=$02;
PrnNum:word=0; {0 para lpt1, 1 para lpt2, etc}
var
nResult:byte;
begin
asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
result:=(nResult and $80)=$80;
end;

Contestar

Pregunta:	4488 - PROBLEMA CON CRYSTAL REPORT
Autor:	Anyer Valverde Jarquin
Hola soy una chica novata en delphi y tengo un gran problema =-( lo que sucede es que he diseñado mis reportes con el quick report que trae delphi 5.0 instalado pero cuando le doy preview no aparecen todos los campos de mi base de datos =.(, yo lo hize segun viene la pequeña guia de quick report en la ayuda de delphi pero no habla mas de como hacer que aparezcan todos los datos de la database ya que solo aparece un registro el primero o uno aleatorio y cuando utilizo las flechitas de arriba nada =-( bueno es que no se como se programan esas flechitas =-p quisiera que me pudieran ayudar porque la verdad estoy desesperada =-( ya le movi todos los atributos a los componentes qreport pero nada , si alguien me lo puede ayudar se lo agradecere mucho =-) :-)

Respuesta:

Alfredo Angulo

Lo que te pasa es que no haz enlazado el Qreport con la Tabla, es decir el QReport tiene una propiedad que se llama "DataSet"
en donde allí tienes que seleccionar el nombre de la Tabla que quieres que aparezcan los registros, ahh, una vez hecho esto, tienes
que enlazar cada TQRDBTEXT con su campo de la propia tabla, para hacer esto, también tienen la misma propiedad Dataset que tendrás
que enlazarla con la tabla, a la vez también tienen la propiedad DataField que sirve para seleccionar cada campo con su respectivo TQRDBTEXT.
a mí también me sucedía que me aparecía un sólo registro ó ninguno, bueno espero que sea eso lo que te suceda. Avisamé si te sirvió de
algo ó si te entro más dudas
Espero que tengas una bonita Feliz Navidad....!!! con tus amigos y familiares

Contestar

Pregunta:	4489 - PROBLEMA CON INSTALL SHIELD =-( Y UNA COOLBAR
Autor:	Anyer Valverde Jarquin
Hola soy otra vez yo =-D tengo el problema de que cuando voy a crear los discos de instalacion con el install shield no se lleva mi base de datos ni mis archivos de ayuda =-( lo que pasa es que tengo una base de datos ya hecha del formato access y en mi programa principal la llamo y la conecto con un alias a mi database control pero cuando hago los discos de instalacion y la instalo en un maquina que no tiene delphi no jala y marca muchos errores de que no se lleva la base de datos junto con el programa de instalacion, creo que el problema es con el installshiel de que no se lleva otros archivos que no sean exe =-( como le podria hacer para que los discos de instalacion sean correctos ?? por favor ayudenme , ahh otra cosa que tengo componente coolbar y quiero que cuando lo mueva de un lugar se mueva y tambiuen que se pueda cerrar creo que si han visto las coolbar de delphi se pueden acomodar donde uno quiere =-) quisiera programarlas asi pero esta medio en chino las propiedades del coolbar tambien si alguien me prodria ayudar se los agradeceria mucho nos vemos adiooooooosin =-)

Respuesta:	Miguel Lucero
Por la largada de la respuesta, esta en el archivo resp4489.txt.

Contestar

Pregunta:	4495 - BUSCAR REGISTROS EN UNA TABLA
Autor:	Jorge Ruiz
Necesito buscar registros en una tabla de foxpro 2.6, con Delphi 2.0 utilizando un TEdit o un combobox pues el programa que tengo solo trae los componentes basicos, cualquier informacion me sera de gran ayuda. Gracias

Respuesta:

ALFREDO ANGULO

Pues es muy facil buscar registros en una tabla, también depende mucho para que lo quieres usar, pero la forma una de las formas
más sencillas es posicionándote en el registro que es mediante la propiedad SetKey-GotoKey, por ejemplo:
(*********************************************************************************)
Nota: Para buscar algún registro tienes que Indexar el campo a buscar en el "DataBase DeskTop"
<Nombre-Tabla>.SETKEY;
<Nombre-Tabla>.FieldByName(Campo).AsString:=Edit1.Text;
If <Nombre_Tabla>.GotoKey Then //Si hallastes la llave(Registro) entonces
Begin
---------
End;
(*********************************************************************************)
Otra forma sería por medio de un ciclo, aunque no es muy recomendable cuando se manejan miles de registros de información,
pero acontinuación te mostraré el código:
While (Not <Nombre-Tabla>.EOF) Do
Begin
If (<Nombre-Tabla>.FieldByName(Campo).AsString=Edit1.Text) then
Begin
------
End
<Nombre-Tabla>.Next;
End;
(*********************************************************************************)
Bueno, espero que te serva de algo y que te ayude, me despido y te deseo Feliz Año 2001
Hasta luego.........!!!!!!

Contestar

Pregunta:	4512 - MOVIMIENTO DE IMÁGENES.
Autor:	María Virginia Vásquez
¿Cómo genero movimiento de 1.000 pelotitas cayendo desde un embudo superior? ¿Qué conviene Canvas, bitmaps...? Estoy trabajando en la simulación del Aparato de Galton.

Respuesta:	Eliseo Badillo
De hecho vas a utilizar ambos... Puedes hacerlo si trabajas con varios Objetos Tbitmap al mismo tiempo. En uno puedes tener lo que seria el Fondo, en otro el Enbudo, en otro la(s) pelotitas, y en un Control de Dibujo los puedes ir copiando(con la instruccion copyRect() ) para generar la animacion... Si no te es suficiente esto escribeme directamente, para ser mas especifico...

Contestar

Pregunta:	4546 - COMANDOS EN DELPHI
Autor:	Hector Alberto Ortiz Barron
Tengo Delphi 4 instalado en la maquina. Quisiera saber como puedo ejecutar un comando de MS-DOS en Delphi y como hacer que un programa se active cuando la computadora se va a apagar. Gracias

Respuesta:	José Luis Freire
Para la primera pregunta, pones en uso ShellApi y ejecutas: ShellExecute(Self.handle,´Open´,´Comandor´,´Parámetros´,nil, SW_SHOWNORMAL);

Contestar

Pregunta:	4597 - BASES DE DATOS
Autor:	Sergio Nieto
Como puedo crear bases de datos y añadirle tablas solo usando codigo?

Respuesta:	Alejandro La Rota
Puedes hacer que tu aplicación ejecute cualquier script SQL, y puedes crear scripts SQL para crear borrar, actualizar tablas, consultas, etc.

Contestar

Pregunta:	4733 - REPORTE DE UNA BD ACCES
Autor:	Gustavo C.m.
Hola amigos programadores necesito ayuda, hice una aplicación de base de datos, la base de datos esta en Acces, todo funciona perfectamente pero cuando quiero crear un reporte con el quickreport ya no funciona, lo que hice fue esto: crear una nueva forma insertar un componente quickreport1 inserto la banda title inserto la banda columnheader y la banda detail uso componentes ttable dentro de un modulo asi que asigno a la propiedad dataset del reporte el nombre de la tabla que quiero usar y de igual forma con los qrtext de la banda detail cuando ejecuto el programa y mando la vista previa (prewiew) no muestra ningun registro ni los titulos ni nada solo se produce el siguiente error "Exception EAcces Violation in module DAO350.DLL at 0000CA30 Acces Violation at adress 04474CA30 in module ´DAO350.DLL´ read of adress FFFFFFFF" Ojalá que alguien pueda ayudarme saludos.

Respuesta:	Miguel Lucero
Si tenés problemas con QR y Access podés usar FastReport. Hay una versión freeware con código fuente que funciona de maravillas con Access u otra BD Se puede bajar desde la página oficial en www.fr.hotmail.ru o bien de www.clubdelphi.com Espero que te sirva

Contestar

Pregunta:	4759 - ACCESO A UNA BASE DATOS INTERBASE A TRAVES DE LA RED
Autor:	Sergio Santa Candela
Hola os cuento: Tengo una aplicacion en Delphi con interbase, en modo local me funciona de fenomenal, ahora quiero tener varios ordenadores y que accedan a la base de datos(interbase) que hay en uno y lo que he hecho es q cada ordenador cliente tiene el bde y en el alias pongo el path de donde esta la bd en el ordenador donde esa el interbase server.¿es correcto?, no me funciona no puede conectar. ¿qué hago mal? Ayudadmeee... Gracias,Saludos

Respuesta:	MRCHL
Sobre la respuesta que te han dado.. todo correcto excepto que debes registrar las conexiones en el archivo "HOSTS", no en "HOSTS.SAM" que es el archivo de EJEMPLO (SAMple) que viene en Windows. Si lo haces en el de ejemplo, no te funcionará

Respuesta:

Omar Silva Muñoz

yo lo hago asi:

1. Todas la máquinas se deben comunicar (o ver haciendo ping entre el cliente y el servidor) por TCP/IP. Registra Todas las máquinas en el archivo de windows "HOSTS.SAM"

2. Las máquinas cliente deben tener instalados las librerias interbase-cliente.

3. La maquina servidora debe tener instalado las librerías interbase-servidor.

4. En las aplicaciones cliente debes configurar el alias de la BD con el formato:
nombre_servidor:\path_database\database.GDB

Espero te ayude en algo...
cualquir inquietud puedes escribirme un email a: [email protected]

Contestar

|< << 9 10 11 12 13 14 15 16 17 18 19 >> >|