PREGUNTAS CONTESTADAS - Delphi≤nguaje=

 Hay un total de 680 Preguntas.<<  >> 

    Pregunta:  9707 - ISAPI: SUBIR ARCHIVOS BINARIOS CON DELPHI5
Autor:  Amancio Díaz
Hola, intento hacer una aplicación ISAPI con Delphi5, que guarde en el servidor una foto junto a otros datos, en el formulario HTML pongo un campo <INPUT TYPE="FILE"...> y el archivo seleccíonado llega al servidor, cuando el archivo es de texto no hay problema, pero cuando es binario... ¿Alguien puede ayudarme a recuperar el contenido del archivo si es binario?
  Respuesta:  Ulises Ruiz Huerta
Intenta esto en tu forma:
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
...
<INPUT TYPE=FILE NAME="FILE1">

    Pregunta:  9742 - ALINEAR NUMEROS PARA LA IMPRESION
Autor:  armando Cholula
necesito saber como alinear numeros, ya que cuando mando a imprimir(e/j factura)no se alinean correctamente
  Respuesta:  qDevelop2000 Solutions
Utiliza FormatFloat.
  Respuesta:  Samuel López Uribe
Es muy sencillo, lo primero que debes de hacer es seleccionar tus QRDBText y seleccionar una propiedad que se llama Alignment y a esa seleccionas la propiedad RigthJustifi,es decir, para que se alinien todas para la derecha.
Pero si al alinaerlos tienes unos número con decimales y otros no, entonces debes de seleccionar el Query o la tabla que estes relacionando con el QReport y le das clic derecho (al table o Query) y te va a desplegar un menu y seleccionas el que dice fieldEditor y adentro de la vantanita la das click derecho y las en add all field, esto para que te presente todos los campos que estas utilizando, después seleccionas tus campos que estes utilizando para alinearlos y en propiedades hay una propiedad que se llama DisplayFormat entonces ahi escribes 0.00 , lo cual significa que los datos que estes presentando te los deje con 2 digitos.
Bueno, espero que te halla servido si tienes alguna duda con mucho gusto te respondere, solamente escribeme al correo.

    Pregunta:  9920 - CONSULTAR CON SQL LOS CAMPOS VACIOS DE TIPO HORA
Autor:  Gerardo Vaca
Como se que ese campo esta vacio si es de tipo hora, el caso de string el valor vacio es '' , de integer es 0, y el de hora cual es, Estoy haciendo una consulta con SQL de un campo de tipo hora para saber cuales tiene ese campo vacio.
  Respuesta:  qdevelop2000 Professional Solutions
Es NULL.
  Respuesta:  Pablo Espinoza
Intenta pasar al parametro Nil o NULL, prueba con los dos.

Saludos Pablo.

    Pregunta:  9930 - GUARDAR ARCHIVOS JPG EN UNA TABLA PARADOX
Autor:  erick erick
Alguien me puede explicar como guardar los archivos jpg en una tabla paradox ya que no reconoce este formato, solamente bmp\'s
  Respuesta:  qDevelop2000 Solutions
-Define un campo de tipo G de nombre, p.e. "Foto", en la tabla, p.e. "Clientes", donde deseas almacenar el JPEG.
-Supongamos que tienes un archivo JPEG "<ruta>\foto0001.jpg" con la foto del cliente.
-Para guardar en la campo el JPEG, puedes, p.e:
try
Clientes.Edit;
TGraphicField(ClientesFoto).LoadFromFile
"<ruta>\foto0001.jpg");
Clientes.Post;
except
Clientes.Cancel;
end;

Esperamos haberte ayudado.
Para cualquier consulta o duda...

    Pregunta:  10039 - NO IMPRIME EN IMPRESORA MATRICIAL
Autor:  gregorio letechipia
he tratado de imprimer lo que contiene el report y no lo puedo imprimir ; utilizo report.print y solo funciona en las impresoras de inyeccion y laser;
el problema es que no imprime en matriz de puntos:
tengo la forma principal y cree un reporte con el asistente y lo mando imprimir desde la forma principal por supuesto que no tengo una base de datos sino que lleno el reporte desde un stringgrid(stringgrid->reporte), en cambio si abro el qrdemo que viene con delphi si lo imprime que es lo que ocurre...

a caso exsiste algun componente o libreria que me pueda ayudar a resolver este problema...

les agradeceria que me pudierann ayudar a resolver este problema
  Respuesta:  gregorio letechipia
lo que necestitas es configurar la impresora en tamano de papel a personal, y en otra opcion no mandar a cola de impresion si no imprimir directamente esto lo haces abriendo las propiedades de la impresora...

    Pregunta:  10064 - ¿CóMO ENVíO FLUJOS BINARIOS A TRAVéS DE SOCKETS?
Autor:  j gpe ram
Quiero enviar archivos de sonido o de video a través de una conexión con sockets, no tengo problema con mensajes de texto ( socket.sendtext('texto'); ), pero con archivos binarios tengo problema. Una buena referencia me serviría...
  Respuesta:  Rodrigo Flores
Un socket no es que envie texto sino que la representacion de salida de el si lo es, pero un socket en si manda bytes lo que tu puedes hacer es convertir tus bytes a ascii (lo que seria en lenguaje c un copymemory(char*, byte*, sizeof())), esto en pascal en mas menos dificil, pero no imposible, busca por funciones de manejo de memoria y utiliza los ^pointer para mover data, convierte (haz Cast) de tus datos byte a un string y envialos, al recibirlo haces el Cast inverso, de char a byte en tu caso es de string a byte.

pero ojo, que el string de delphi no es un tipo de dato ya que es una clase llamada TString, ella es nativa de delphi y al ser clase y hacer un posible cast o conversion como le quieras decir, es posible que tus datos no sean reales asi que te aconsejo que no ocupes clases para ello, maneja un dato intermedio de entre el string y byte que sea como un LPTSTR, char*, o PSTR, cosa que tu texto se mueva en memoria, pero no el texto mas los bytes de la clase string.

Un socket puede enviar lo que sea, bloques completos de memoria, pero los construyen para enviar texto porque es lo mas comun y facil de utilizar para todo el mundo.

PD: Fijate en el send del objeto socket, me parece (porque no recuerdo bien) que tiene un send pero de bytes.

    Pregunta:  10083 - CONSULTA SOBRE MULTIPLES BASES DE DATOS
Autor:  Julio Cesar Jerez Camps
Como pudiera realizar una consulta a varias tablas ubicadas en varias bases de datos.
Gracias
  Respuesta:  Gustavo Enriquez
Con el BDE puedes simplificar un poco este procedimiento.

1. Creas un alias a cada base de datos. por el BDE.

y el Sql lo puedes hacer así.

Select A.campo1, A.Campo2, B.Campo1, B.campo2
from ":alias1:tabla1" A, ":alias2:tabla2" B

Espero que te sirva.
  Respuesta:  Jordi Lanchas Papell
La consulta sobre varias bases de datos en SQLServer 7 se puede hacer de la siguiente manera:

Select a.*, b.*
From nombremaquina.nombrebasedatos.dbo.tabla a,
nombremaquina.nombrebasedatos.dbo.tabla b

Asi puedes acceder a dos bases de datos diferentes.
Supongo que para otros sistemas el dbo no hará falta.

Espero que te funcione !!!

    Pregunta:  10125 - COMO GENERAR UN REPORTE UTILIZANDO CODIGO
Autor:  Ruben Dario Gonzalez D
Al que tenga un ejemplo de como generar un reporte utilizando codigo y ademas manejando una tabla de datos agradeceria mucho.
  Respuesta:  Loren@ Oceguera Alvarado
Mira en la pagina de www.clubdelphi.com en la sección de columnas existe un artículo que te podría ser de utilidad. en caso de que no te de resultado, comunicate conmigo. ok?

    Pregunta:  10369 - EJECUCION DE SHELL REMOTA
Autor:  Pablo Espinoza
Hola,
Mi consulta es si existe algún comando para la ejecución remota de una SHELL de Linux o Unix, como dato estudie la ShellExecute pero parece que solo sirve para ejecutable de windows.

De antemano gracias por sus respuesta.....
  Respuesta:  xavier bravo
yo ejecuto shells de unix desde delphi, lo que hago es crear el shell en unix que se lanza desde delphi ejecutando un objeto tstoredproc, aqui va el ejemplo, esta largo pero sirve:

create procedure "informix".oce99_crea_unl(qclas_ptal char(13), qanio_cons integer, qmes_cons integer)

{Autor:Xavier Bravo S.
Fecha:10 de Junio de 2003
Procedimiento para generar archivos planos a partir de las tablas
alm_recetas y existencias_mig; despues de generarlos, se envian
a su respectivo servidor delegacional; toda la operacion toma
como base la clas_ptal de la unidad
}

define comando1 char(254);
define comando2 char(254);
define comando2a char(254);
define wdir_ip char(15);
define cmd0 char(80);
define cmd1 char(80);
define cmd2 char(30);
define cmd3a char(25);
define cmd3 char(30);
define cmd4 char(25);
define cmd4a char(25);
define cmd4b char(25);
define cmd5 char(25);
define cmd6 char(25);
define winstancia char(30);

--set debug file to "xavo.err";
--trace on;

let comando1="unload to "||trim(qclas_ptal)||".csm select clas_ptal,gpo,gen,esp,dif,"|| "var,anio_cons,mes_cons,existencia,exis_no_disp,cpm_d,cpm_n,cpm_s,cpm_s,inv_ant";

let comando2=" from sai_alm:existencias_mig where clas_ptal="||"\'"||trim(qclas_ptal)||"\'"||
" and anio_cons="||qanio_cons ||" and mes_cons="||qmes_cons;

system "echo " || trim(comando1) || " > " ||trim(qclas_ptal)||".sql";
system "echo " || trim(comando2) || " >> " ||trim(qclas_ptal)||".sql";
system 'dbaccess poi_alm ' || qclas_ptal;
system 'rm '|| qclas_ptal||'.sql';

--ya que genero el archivo, ahora se requiere saber a qué servidor delegacional se
--deben enviar, se obtiene la IP segun la clas_ptal de la tabla oce99_catalogo_ip

select ip into wdir_ip
from alm_unidades
where clas_ptal=trim(qclas_ptal);

let cmd1 = "open "||wdir_ip;
let cmd2 = "user enlace farmacia";
let cmd3a= "asc";
let cmd3 = "prompt";
let cmd4a= "del " ||qclas_ptal||".rct";
let cmd4b= "del " ||qclas_ptal||".csm";
let cmd4 = "put " ||qclas_ptal || ".rct";
let cmd5 = "put " ||qclas_ptal || ".csm";
let cmd6 = "bye";

system "echo " || trim(cmd1) || "> " || qclas_ptal || ".snd";
system "echo " || trim(cmd2) || ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd3a)|| ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd3) || ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd4a)|| ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd4b)|| ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd4) || ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd5) || ">>" || qclas_ptal || ".snd";
system "echo " || trim(cmd6) || ">>" || qclas_ptal || ".snd";
system "ftp -n < " || qclas_ptal || ".snd&";

system 'rm '||qclas_ptal||'.snd';
system 'rm '||qclas_ptal||'.rct';
system 'rm '||qclas_ptal||'.csm';

--finalmente inserta en log2 para que se ejecute la instruccion
--en el server delegacional

execute procedure sube_a_log2(qclas_ptal);
--trace off;

end procedure;

    Pregunta:  10427 - MASCARA PARA UN NUMERO DECIMAL
Autor:  GErardo Vaca
Como hacer para que cuando quiera ingresar numero decimales como ser 96.3 ó 895,526.32 me lo hacepte e intentado con el compomente maskEdit pero no he podido como puedo hacerlo
Le agredesco de antemano
  Respuesta:  Roberto Ortiz
cheka el Displayformat,

ej.
96.3

###,##0.00

= 96.30

|<  <<  18 19 20 21 22 23 24 25 26 27 28  >>  >|