PREGUNTAS CONTESTADAS - Delphi≤nguaje=

 Hay un total de 680 Preguntas.<<  >> 

    Pregunta:  11867 - CARACTERES ESPECIALES
Autor:  noelia Fernández
Hola amigos,en mi aplicación hago una fusión de documentos; es decir,con los datos de la aplicación y una plantilla desde Delphi genero un documento word.
El problema es que si en algún campo insertan caracteres como Ç,ü, o tildes el word no los interpreta y pone caracteres "raros".
Sabe alguien porque puede ser esto y como puede arreglarse?
Muchas gracias.
  Respuesta:  qdevelop2000
Te envío 2 funciones muy útiles para convertir "Oem a Ansi" y "Ansi to Oem" cualquier string, necesarias para solucionar tu problema.
Haz la conversión antes de enviar al Word y prueba.
Luego cuéntame que tal te ha ido.

function OemToAnsiString(const Texto: string): string;
begin
SetLength(result, Length(Texto));
OemToAnsiBuff(@Texto[1], @result[1], Length(texto));
end;

function AnsiToOemString(const Texto: string): string;
begin
SetLength(result, Length(Texto));
AnsiToOemBuff(@Texto[1], @result[1], Length(texto));
end;

    Pregunta:  11921 - AGREGAR DE LISTBOX A DBGRID
Autor:  Camilo Ramirez
Como agregar los datos seleccionados en una listbox (con la propiedad multiselect activada) a un dbgrid?
  Respuesta:  qdevelop2000
Si concretas un poco más te podremos ayudar.
Te adelanto que para agregar elementos a un DBGrid debes hacerlo a través de una tabla y/o Query. No puedes hacerlo directamente sobre el control. Creo que debes referirte a un StringGrid.

    Pregunta:  12077 - HACER UN GO NRECNO
Autor:  Jorge Medina
Alguien sabe como implementar la intrucción "Go nRecno"
use tabla1
Go 350 <-----

En delphi puedo usar TBookMark, pero no es igual a la implementación que trae los lenguajes xBase, por lo tanto si alguien sabe como ir directamente a un numero de registro, por favor avisenme.

agradeciendo a aquellos que se dignen a responderme.

Chao...
  Respuesta:  roberto ortiz
cheka el

Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual;

    Pregunta:  12107 - TABLA SENSIBLE A LOS CAMBIOS DE OTRA POR RED
Autor:  Alberto Osuna Núñez
Saludos a todos y felicidades a los creadores.

¿Como puedo hacer, por ejemplo, que en dos dbgrid que están en diferentes máquinas conectadas en red pero enlazados a la misma base de datos, puedan mostrar los cambios en la base de datos?
Es decir, que cuando se agrege un registro desde una máquina, ese registro se muestre también en el dbgrid de la otra.

Gracias de antemano.
  Respuesta:  mamcx@ m
Mala idea. Espero que tengas muy buena razón para ello. Te digo esto porque una solución asi te generara dolores de cabeza con más de unos cuantos usuarios o si la información es grande....

Sin embargo, esto se pude, pero esto cambia en cuanto al tipo de base de datos y el tipo de acceso a los mismos (Sql Server, Oracle?)(BDE, ADO?) Si usas ADo, debes usas un recordset de tipo servidor, pero esto te dificulta MUCHO la interfaz de usuario (Esto es igual, olvidate de los filtros, ordenes, etc... del lado del cliente)

Es MUCHO mejor utilizar un sistema Cliente/Servidor. Sin embargo lo lógico aqui es que ya el sistema este en desarrollo y no haya tiempo para cambios importantes. Sin embargo, piensa al estilo del Navegador de Internet: Si necesitas ver los cambios, das refresh.... Esto es un golpe para alguien acostumbrado a un sistema local, pero asi es como se hacen las aplicaciones de red...

    Pregunta:  12120 - DESARROLLO CON MIDAS
Autor:  Ricardo Alejandro Ramos Juarez
Como uso MIDAS para conectar una aplicacion clilente a una aplicacion de servidor y como me conecto a la base de datos del sistema.

necesito saber que componentes agrego al modulo o como los configuro, pues as agregarle una base de datos no se configurarla.

ademas debo usar el DBE en el lado del cliente.
  Respuesta:  mamcx m
Me imagino que eres nuevo en Delphi... Esto lo logras simplemente buscando en las ayudas...

Sin embargo, si tienes Delphi 5, haces lo siguiente:

- Creas un TRemoteDataModule
- Colocas una conexion a la BD (Eso depende que usas - BDE-ADO-INTERBASE)
- Colocas una o más consulta (Esto no te lo dicen en la ayuda: Mejor olvidate de objetos TTables, estos no son optimos en ambientes Cliente/Servidor : Si no sabes Cliente/Servidor, buen momemto de aprender!)

- Colocas un TDataSetProvider, asignar la propiedad DataSet a la consulta

- Puedes conectarte a la BD para probar !PERO ANTES de compilar, cierra las conexiones a la BD, y en el evento OnCreate del DataModule, pon codigo manual para abrir la BD... Importante )

- Compila.

En el cliente

- Un TDataModule
- Pon una conexion del cliente... Normalmente TDcomConection
- Si compilaste el servidor, en la propiedad ServerName del objeto DCOM selecciona el nombre del servidor (Upps! Tip aqui:Coloca un nombre util para el servidor desde el mismo principio. Ose que al crear el projecto no uses Project1 y al crear el TRemoteDataModule algo util)
- Pon un TClientDataSet. Asigna RemoteServer al TDCOM... y ProviderName al objeto Tprovider que pusiste el servidor
-
LISTO!

    Pregunta:  12162 - IMPRIMIR UN BITMAP
Autor:  Diego Romero
Ante todo debo aclarar que soy nuevo en Delphi, tengo la versión enterprise 5.0.
Pongo un bitmap en un Timage de un form junto a otros controles y quiero imprimir solo el bitmap, he hecho algo pero en la impresora me sale la imagen mas chica que una estampilla, ¿cómo hago para que en la impresora me salga de un tamaño mas o menos acorde con lo que se ve en pantalla?
  Respuesta:  Luis Fernandez
Impresión directa.Te puede salir la imagen como una pulga.

procedure TForm1.Print1Click(Sender: TObject);
begin
Printer.BeginDoc;
try
Printer.Canvas.Draw(0, 0, Image1.Picture.Graphic);
finally
Printer.EndDoc;
end;
end;

Con este código ajustas la escala de la imagen cargada en un objeto TImage de Delphi y mas o menos se imprime a escala real.Antes tienes que cargar la imagen en el TImage.

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
Printer.BeginDoc;
with Printer do
try
ScaleX :=
GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY :=
GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic);
finally
EndDoc;
end;
end;

Este hace los mismo que el anterior pero NO CONSUME RECURSOS DEL SISTEMA pues empleas un objeto TPicture que creas en el momento y destruyes tras la impresión.

procedure TForm1.Button1Click(Sender: TObject);
var
P: TPicture;
ScaleX, ScaleY: Integer;
R: TRect;
begin
P := TPicture.Create;
try

P.LoadFromFile('C:\MiDirectorio\Ejemplo.bmp');

Printer.BeginDoc;
with Printer do
try
ScaleX :=
GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY :=
GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, P.Width * ScaleX, P.Height * ScaleY);
Canvas.StretchDraw(R, P.Graphic);
finally
Printer.EndDoc;
end;
finally
P.Free;
end;
end;

    Pregunta:  12168 - PROTECCIóN DE APLICACIONES EN DELPHI
Autor:  Lorena Oceguera Alvarado
Hola, como estan?, quisiera que me ayudaran a solucionar mi duda, cómo le puedo hacer para proteger mis aplicaciones, de forma de que no se puedan instalar en cualquier máquina. Grax
  Respuesta:  gus op
hola, una opcion es leer el volumen del disco
y esto te facilita las API de windows con una funcion, sabes en este momento no me acuerdo la funcion pero te aconsejo que leas la ayuda de windows.

    Pregunta:  12385 - GRAFICAR FUNCIONES EN DELPHI
Autor:  Pedro Wilson Avila Lopez
Necesito graficar funciones en delphi, pero no se como, podrian ayudarme por favor.

quisiera que por favor me facilitaran un codigo de ejemplo con una funcion cualquiera, por ejemplo
y=sin(x)
gracias
  Respuesta:  Erick Mendez
Lo siento el codigo no te lo puedo facilitar -por que no lo tengo- pero si te puedo decir como hacerlo:

haz algo sencillo pon un Image en tu forma y un boton, el Image tiene una propiedad canvas -un lienzo vaya- y en el puedes graficar como si lo hicieras en la pantalla del msdos, con lineas, puntos, etc.

aqui la diferencia es que no tienes que hacer el initgraph como en pascal,
Ahora de como haces la funcion es mas o menos sencillo, pides la funcion, y las cotas inferior y superior, ahora estiras -o encojes tu funcion para que te empate con el tamaño de tu canvas, haces lo mismo con las X, y con las Y, luego pides tambien el numero de puntos a graficar, y con eso obtienes el incremento para evaluar, en otras palabras
delta:=(cotaB-cotaA)/(numeropuntos);

evaluas la funcion y trazas una linea de un punto a otro, asi entre mas puntos te den mas fina sera la funcion, si tienes dudas escribeme a mi correo, e intentaremos ayudarte.

    Pregunta:  12413 - FORMAS DE BOTONES EN DELPHI
Autor:  Juan Alejandro Hernandez Ramirez
Como hacer un boton circular o de otra forma en delphi.
  Respuesta:  Jose Arocas V.
Hola,
Creo que usando directamente los controles estandar de Delphi no puedes. Luego la única posibilidad, es crear un control botón nuevo. En varios libros se recoge como hacerlo, y curiosamente, el ejemplo es crear botones circulares.

    Pregunta:  12433 - EDBENGINEERROR
Autor:  francisco castellano
He creado un programa con base de datos, y funciona en mi ordenador. Pero cuando lo instalo en otro ordenador
y lo ejecuto me sale el siguiente error:
Application Error
Exception EDBEngineError en module
programa.exe at 000429cc
Invalid File Name
Aceptar.

He instalado antes el BDE y lo he configurado, pero no funciona.
¿Como puedo solucionarlo?
  Respuesta:  Carlos Fdo Palacio Arango
Por casualidad ya te fijaste que el bde este bien configurado tanto en tu D.D. como en el registro de Windows o tambien ya te detallaste tambien la configuracion del alias que le tienes a la b.d.?.

Escribeme si tienes problemas al configurarla.

|<  <<  21 22 23 24 25 26 27 28 29 30 31  >>  >|