PREGUNTAS CONTESTADAS - Delphi

Hay un total de 680 Preguntas.

<< >>

Pregunta:	20724 - BOTON REDONDEADO EN DELPHI
Autor:	jorge SEGOVIA
Necesito saber como se crea un boton redondeado en delphi tomando la base de la clase TButton

Respuesta:	Zakio Muñoz
mira en esta direccion subi un tuto para crear poner Botones Redondos espeto te sirva http://www.clubdelphi.com/foros/showthread.php?t=61893

Respuesta:

Marco García

!Verdadera macaca te quieres mandar!.
Yo te recomiendo que busques un componente en la web. personalmente he visto muchos "botones redondos" dando vueltas
por ahí esperando que alguien los atrape.
Incluso he visto unos muy buenos hasta con efectos de render y otras cosas bastante raras.
De todas maneras, si te quieres "macaquear" dedbes crear una clase derivada de Tbutton y sobreescribir el metodo paint.

Si deseas ayuda detallada escribeme..

Un amigo.

Contestar

Pregunta:	20854 - PARADOX PARA RED ES BUENO???
Autor:	Angel Ivan Gonzalez
Pueden decirme que tanto tengo que hacer para que una aplicacion en delphi no tenga problemas con las bases de datos en paradox, de una aplicacion que cree para red, creo que hay que ponerle controladores y eso, me pueden explicar.?????se agradecera mucho

Respuesta:	Ruben Carballo Macklis
si es una red PPP no hay problema, funciona bien pero si uilizas Paradox en Cliente/Servidor mejor utiliza interbase 5 o 6 y no tendras problemas, ademas define bien tu pregunta

Contestar

Pregunta:	20936 - SISTEMA CON NETBEUI, INSTRUCCIONES EN DELPHI 5....
Autor:	Antonio Tlapa Galvan
Información de cuales instrucciones tengo que utilizar para realizar un sistema en red utilizando el Protocolo NetBEUI (con Delphi 5), Debido a que no tengo direcciones IP para poderlo realizar..... Gracias de Antemano....

Respuesta:	Alfredo Angulo
\\Servidor\c:\bd\mi_base_datos.gdb Prueba con esto, esta es la sintáxis para NetBeui

Contestar

Pregunta:	21025 - COMPARACION FONETICA
Autor:	Mauricio Diaz
HOLA AMIGOS, COMO ESTAN, ESPERO QUE BIEN, BUENO ME ACERCO A UDS. PARA PEDIR UNA AYUDA O ALGUN DATO DE LO SIGUIENTE: NECESITO VER LA FORMA DE COMPARAR 2 STRING EN FORMA FONETICA EN ESPANOL Y EN INGLES, HE INTENTADO CON EL SOUNDEX DEL DELPHI 6 , PERO SOLO LO HACE EN INGLES, ESPERO QUE ME PUEDAN AYUDAR, GRACIAS. SALUDOS

Respuesta:	Israel
Mírate el artículo que hay en community.borland.com artículo numero 19301 Espero te ayude.

Contestar

Pregunta:	21065 - ALINEAR A LA DERECHA CON TEDIT
Autor:	Jesus Anaya Salazar
Como puedo hacer que el componente Edit de Delphi, alinie su contenido a la derecha.

Respuesta:

David Berneda

Puedes hacer esto:

type
TRightAlignEdit=class(TEdit)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TRightAlignEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style:=Style or ES_RIGHT;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Edit1 : TRightAlignEdit;
begin
Edit1:=TRightAlignEdit.Create(Self);
Edit1.Text:='Hola';
Edit1.Parent:=Self;
end;

Tambien puedes reemplazar ES_RIGHT por ES_CENTER,
y añadir "or ES_UPPERCASE" (y ES_LOWERCASE, ES_NUMBER,etc).

Contestar

Pregunta:	21252 - DUDAS TQUERY
Autor:	David Sauce
Hola. Recurro a este foro porque tengo problemas cuando uso el objeto TQuery. Bueno, la duda es que no se si lo uso bien. Aqui pongo un ejemplo de codigo tipo de los que uso. Estan dentro de bucles, por lo que se ejecutan muchisimas veces. with Query_GC100W2 do begin close; if prepared then unprepare; sql.clear; sql.add('SELECT AR_PRIXACH,FA_CODEFAMILLE FROM F_ARTICLE WHERE AR_REF = :AR_REF'); ParamByName('AR_REF').AsString := trim(Query_MDB2['ARTLAN']); if not prepared then prepare; open; end; Con esto funciona, pero no se si es todo lo eficiente y correcto que debiera, ya que cuando uso mucho objetos TQuery en un mismo programa, que acceden a tablas muy grandes, llega un momento que el sistema se colapsa y me da un mensaje de FALTA DE MEMORIA. Supongo que será porque no la libero o algo así. ¿Alguien podría ponerme un ejemplo de como usar un objeto TQuery de la manera más eficiente y correcta posible? Tengo muchas dudas: ¿Es necesario hacer el prepare siempre? ¿Es necesario hacer el unprepare siempre como lo hago yo? ¿Podrías ponerme un ejemplo de utilización de esto? ¿Se nota realmente el uso de estos dos métodos? ¿Es convenciente usarlos? ¿Donde debería usar el metodo Free? ¿Me falta algo en el código para que el uso del objeto TQuery sea todo lo correcto y eficiente

Respuesta:

Juan Jose Ochoa

La manera más eficiente es la siguiente:

with Query_GC100W2 do
begin
close;
// if prepared then ----> NO LO USES
// unprepare; ------> NO LO USES
sql.clear;

// NO LE PONGAS PARAMETROS AQUI ADENTRO, USA LOS VALORES DIRECTAMENTE

sql.add('SELECT AR_PRIXACH,FA_CODEFAMILLE FROM F_ARTICLE WHERE AR_REF = ' + Query_MDB2ARTLAN.Value);

// ParamByName('AR_REF').AsString := ------> NO LO USES
// trim(Query_MDB2['ARTLAN']); ------> NO LO USES
// if not prepared then ------> NO LO USES
// prepare; ------> NO LO USES
open;
end;

Esa es la mejor manera y haces trabajar menos al query.

Contestar

Pregunta:	21323 - CAMBIAR DATO EN QUERY DESPUéS DEL POST Y ANTES DEL APPLYUPD
Autor:	Karlos Arroyo Fernández
Kaixo all! Utilizo una Query junto con una UpdateSQL. Quisiera cambiar un dato (numérico) antes de que se almacene en la BD pero no puedo utilizar el "BeforePost". Mi idea es hacerlo después del Post pero antes del ApplyUpdates (por ejemplo, utilizo el evento "onUpdateRecord"), sin embargo lo que obtengo es un mensaje que dice: "Table is read only". Gracias por vuestra ayuda.

Respuesta:	Angel Leonardo
Creo debes verificar si la propiedad CachedUpdates este true porque de lo contrario siempre te dira que el query es read only, otra cosa no entiendo bien lo de cambiar un valor antes de grabar, esto lo puedes hacer muy facilmente en un boton con un codigo como este Nombre_QueryNombre_campo.asInteger := 99; Por favor dime si lo pudiste resolver

Contestar

Pregunta:	21436 - EJECUTAR AUTOMATICAMENTE UN PROGRAMA DESDE UN DISQUETE
Autor:	Diego Ortiz Coronel
Tengo una aplicación pequeña echa en delphi 3.0 deseo saber como puedo lograr que mi programa al copiarlo en un disquete, e insertarlo en la unidad de disquete mi aplicación se ejecute automaticamente por Windows desde el disquete, similar a lo que ocurre con el autoroon de los CD's. Si alguien puede ayudarme, gracias de antemano.

Respuesta:	Elvis Henríquez
Intenta lo siguiente: Escribe en la siguiente clave HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun lo siguiente: 99000000 (2 nueves y 6 ceros), y reinicia tu PC.

Respuesta:	Marcelo Limori
Diego. Esto se logra modificando el Registry de Windows. Realmente ahora no me acuerdo cómo. Pero no deseperes más, me comprometo a fijarme y volver a contestar esta pregunta en un futuro cercano. Saludos y buenas compiladas

Contestar

Pregunta:	21509 - COMO OBTENGO EL NOMBRE DE LA PC Y LA URL ACTIVA O ACTIVAS
Autor:	Omar Sánchez Serrato
Ya he intentado con la API GetComputerName pero devuelve un nombre erroneo.

Respuesta:

jorge luis guzman abreu

Con esta función:

function GetComputerName : String;
var
pcComputer : PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize );
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem( pcComputer );
end;
end;

Ejemplo de llamada:
Label2.Caption:=GetComputerName;

----------------------------------------------------
La tor pregunta es esta:

Si enviamos un "GET" al puerto 80 del servidor WEB, nos devolverá algo parecido a esto:

HTTP/1.0 200 OK
Date: Fri, 18.Feb 2000 09:42:29 GMT
Server: Apache/1.3.6 (Unix) <=== Esta es la parte interesante
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html
...
...
Codigo HTML
...

La peticion como tal debe ser de la forma:
GET / HTTP/1.0{CR/LF}{CR/LF}{CR/LF}

El ejemplo es el sgte.

<liAñade a la forma un TClientSocket, un TMemo, un TEdit y un TButton.
<liEn el evento Conect del TClientSocket, pon este codigo:

procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
Caption := 'Conectado'; {Connected}
ClientSocket1.Socket.SendText('GET / HTTP/1.0'+#13+#10+#13+#10+#13+#10);
end;

-en el evento Read del ClientSocket:

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(ClientSocket1.Socket.ReceiveText);
end;

-Y en el OnClick del Boton

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 80;
ClientSocket1.Open;
end;

Ejecuta el programa, y en el edit escribe la direccion del servidor que desees chequear ej. 'www.q3.nu' , 'www.altavista.com', etc.
Si lo quieres por direccion IP entonces en vez de ClientSocket1.Host pones ClientSocket1.Address

Para 'www.q3.nu' saldra algo parecido a esto...

HTTP/1.1 200 OK
Date: Thu, 24 Feb 2000 21:00:41 GMT
Server: Apache 1.3.6 Skyport Version Server built May 4 1999 20:10:57

Contestar

Pregunta:	21622 - PROGRAMACIóN MULTIUSUARIO EN DELPHI PARA BD ACCESS
Autor:	Pedro
Hola, Me encuentro desarrollando una aplicación de BD en delphi utilizando access como Gestor de Base de Datos. La conexión la realizo a través de ODBC. Mi pregunta es la siguiente: ¿Como puedo realizar el control exhaustivo para este aplicación en entorno multiusuario?, es decir, -Control de los identificadores asignados automáticamente a cada registro. -Control de los registros que están siendo modificados por otros usuarios etc,etc. Para conseguir un control total sobre las operaciones de todos los usuarios. Saludos y Muchas Gracias.

Respuesta:	Germán Casais
Hola. Lamentablemente Access no es una BD multiusuairo por lo tanto es muy dificil o casi imposible hacer los controles que una aplicacion multiusuairo necesita sobre una BD compartida de manera correcta y efectiva. Te sugiero que busques alternativas de BD relacionales y multiusuario que son gratuitas como Interbase o MySQL y que tienen todo el soporte desde delphi. Saludos!

Contestar

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