PREGUNTAS CONTESTADAS - Delphi≤nguaje=

 Hay un total de 680 Preguntas.<<  >> 

    Pregunta:  16404 - ¿COMO SE LA URL QUE HA ESCRITO EN IEXPLORER?
Autor:  Joselito
Hola a todos.

Tengo mi aplicación corriendo en BackGround, y lo que necesito, es averiguar qué URL han escrito en la barra de Navegación del Internet Explorer... ¿Hay alguna forma de saberlo?. ¿Como?. ¿Que tengo que utilizar y cómo se declara?.
Muchas gracias.
  Respuesta:  jorge luis Guzman Abreu
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.


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

    Pregunta:  16494 - ¿COMO DETECTO PULSACIóN DE LAS TECLAS?
Autor:  joselito cbjm
Hola a todos.
Mi pregunta es la siguiente: ¿Como puedo detectar la pulsación de teclas desde una aplicación externa a la mía?... Esto es, por ejemplo, escribiendo en Word, que mi aplicacion Delphi, corriendo en BackGround, detecte la pulsación de las teclas. ¿Es posible? .. Me han respondido que tengo que jugar con las hook del teclado, ¿es asi?... ¿Como se usan las Hook del teclado?...

Muchas gracias.
  Respuesta:  Rodolfo Burlando Makthon
Hola.
Si. lo mejor es usar un gancho a teclado a nivel del sistema
Es decir deberas crear una DLL que contenga el gancho (hook) luego esta DLL tendra un medio de comunicación con tu aplicación.

te envio una direccion donde esta muy bien detallado un ejemplo de enganche a teclado, como ratoy y otros.

saludos

http://www.q3.nu/trucomania/ftesp.html

Si te interesa mas ejemplos la pagina pertenece a Truco Mania.

Saludos.

    Pregunta:  16526 - ASIGNACION DE PARAMETROS DINAMICOS A COMPONENTE DATABASE
Autor:  Andrés Ojeda Franco
Buenas a todos, al parecer me estoy ahogando en un vaso de agua....espero me ayuden...

Necesito asignar de manera dinámica el UserName y la Password a los parámetros del componente TDataBase. Utilizo el comando Params.Add := String y me arroja un error de conexion.......
  Respuesta:  Alejandro Bovone
Hola Andrés, pobá con lo siguiente:

var1:='username=ALEJANDRO';
var2:='password=123456';
TDB.close;
TDB.params.clear;
TDB.params.add( var1 );
TDB.params.add( var2 );

Suerte
Alejandro

PD: TDB == TDataBase

    Pregunta:  16530 - ERROR EN B.D. INTERBASE
Autor:  Luis Servando Sosa Ocadiz
HOLA.
ALGUIEN SABE COMO SOLUCIONAR ESTE ERROR O POR QUE SALE EN MI B.D. CREADA EN INTERBASE Y MIS INTERFACES EN DELPHI VS 3. CLIENTE/SERVIDOR.

EL ERROR ES : EXCEPTION EWin32Error in module VCL30.DPL at 00010B7F A Win32 API funtion failed.

OJALA ME PUEDAN AYUDAR SE LOS AGRACERE.
  Respuesta:  mack ??
el problema que se te presenta, se basa en que tienes un procedimiento que en la herencia posee un virtual, tu lo has definido y no le pusiste el override, por eso te causa problemas!!.. buscalo!!

    Pregunta:  16782 - COMO SE CAPTURAN IRQ EN DELPHI?
Autor:  Einar Felipe
Queria seaber si se podia y como si es que se puede, Gracias, Einar
  Respuesta:  Josue Jimenez Noyola
No se si te pueda servir, existen diferentes componentes que puedes usar para ello.
rebisalos y haber si te ayudan.
http://www.torry.net/systeminfo.htm

    Pregunta:  16800 - COMO DOEVENTS (EN VISUAL BASIC)
Autor:  Eliseo Badillo
Deseo saber si existe alguna instruccion o conjunto de instrucciones en Delphi que Funcione como el Doevents en Visual Basic, Gracias por su ayuda...
  Respuesta:  Staling Bienvenido Rivas Lopez
Es muy facil.

Solo tienes que poner el siguiente codigo donde quieras que se ejecuten los eventos pendientes.

Application.ProcessMessages;

Al hacer esto todos los eventos que esten pendientes se realizaran.

Yo lo tengo en un bucle para que cada vez que cuente 50 ciclos de la accion del bucle, lo ejecute.

Pruebalo y Escribeme si tienes dudas

    Pregunta:  16816 - ASIGNAR DATOS AL OBJETO TCHART
Autor:  Demetrio Gonzalez Gonzalez
¿Cómo se asignan los datos contenidos en un StringGrid como fuente de datos para mostrar en un gráfico Chart?
  Respuesta:  Hector Andrade
Te recomiendo que coloques los datos que has de leer en un array de dos dimenciones dinamico, digamos que llamas al array datos[i,j], luego coloca un componente TChart en tu formulario, has doble click sobre el TChart y aparecera un ayudante crea una serie de datos (Series1), y selecciona el tipo de grafico que necesitas y otras carateristicas, luego en el evento que deseas que genere el grafico coloca:
For i:=0 to High(datos) do
Series1.AddXY(datos[0,i],datos[1,i],'',clTeeColor);
Chart1.Visible:=True;

Si necesitas que el componente sea interactivo y grafique distintos sets de datos no olvides limpiar la menoria del componente cada vez que generes un nuevo grafico:
Series1.Clear;

Si necesitas mas ayuda pega un grito a [email protected]
hector...
  Respuesta:  Alejandro Carrillo de Luna
Yo nunca pude llenar el Chart, pero utilizo un componente llamado TCHARTFX, que esta en Delphi 5 (no se si en Delphi menores), y me parece que es mas facil.

El llenado es a partir de una tabla, tomando en cuenta el primer campo como encabezado de la serie.

Procedure LlenaGraf(Const Grafica: TChartFx; Const Fuente: TQuery; Archivo: String);
Var
x, y: Integer;
Begin
If Fuente.Active Then
Fuente.Active := False;
Try
Fuente.DatabaseName := ExtractFilePath(Application.ExeName)+'Archivos';
Fuente.SQL.Clear;
Fuente.SQL.Add('Select Estrat, Count(*) From "' + Archivo + '" Group By Estrat');
Fuente.ExecSQL;
Fuente.Active := True;
Except
On E: EDatabaseError Do ShowMessage(E.Message);
End;
If Fuente.RecordCount > 0 Then Begin
Grafica.OpenDataEx(Cod_Values, Fuente.FieldDefs.Count - 1, Fuente.RecordCount);
Grafica.Decimals := 0;
x := 1;
y := 0;
While (Not Fuente.Eof) And (x <= Grafica.NSeries) Do Begin
Grafica.ThisSerie := x - 1;
While (Not Fuente.Eof) And (y <= Grafica.NValues-1) Do Begin
Grafica.Value[y] := Fuente.Fields[x].AsInteger;
Grafica.Legend[y] := Fuente.Fields[x-1].AsString;
Fuente.Next;
Inc(y);
End;
Inc(x);
End;
Grafica.CloseData(Cod_Values);
End
Else
ShowMessage('No existe información para graficar.'+#13+'Consulte con el Desarrollador');
Fuente.Active := False;
Fuente.DatabaseName := '';
End;

    Pregunta:  16899 - DELPHI5 Y WORD
Autor:  Luis Cañera
Que es lo que tengo que hacer para insertar datos de una tabla de paradox en un documento de Word. Lo mas importante es como puedo decirle que situe cada dato en la posicion que yo quiera, dentro del documento de Word. Es decir, quiero saber como utilizar el Word para generar informes (en sustitucion del QuickReport). Todo esto es sobre Delphi 5.
  Respuesta:  Marco Romero
Creo que lo mas fácil sería que crearas el informe con QuickReport, por el tema de la posición de campos que lo puedes controlar en diseño. Luego solo tienes que poner un componente "TQRRTFFilter" en tu informe y llamar al método "ExportToFilter" del QuickReport. Tienes la documentación en la ayuda.

El fichero Word que obtengas (en realidad es un RTF), será clavado al informe que hayas diseñado (Al menos en mi caso así ha sido).

Espero haberte ayudado. Saludos.

    Pregunta:  16922 - COMO VER LOS REGISTROS BORRADOS DE DBASE EN DELPHI
Autor:  Jorge Muñoz Arechavala
Necesito accesar tablas de Dbase III+ para ser mostrados en un Grid, Hasta aqui no hay problema mi problema es que si las tablas contienen registros marcados para borrar tambien debo mostrarlos.

como puedo hacer esto, trabajo con Delphi 5.0

Gracias
  Respuesta:  Alejandro Carrillo de Luna
procedure deletedrecords(Table: TTable; SioNo: Boolean);
begin
Table.DisableControls;
try
Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON,
LongInt(SioNo)));
finally
Table.EnableControls;
end;
Table.Refresh;
end;

Este procedimiento lo he probado con tablas DBASE y tablas de FOXPRO

    Pregunta:  17038 - CONECTRA UNA BASE DE DATOSEN SQL CON UN PROGRAMA EN DELPHI
Autor:  Francisco Quispe Alvarez
Mi pregunta es como conecto una base de datos elaboradaen SQL 7.0 con un programa en Delphi 4.0

Gracias
  Respuesta:  Gustavo Enriquez
La única forma es con el driver de Odbc, sql server trae un cd con un cliente para windows, debes instalar ese cliente y luego podras configurar la conexion.

Ten en cuenta que en delphi 4 el driver sólo funciona con protocolo netbeui, a menos que tengas una versión diferente que funcione con tcp/ip.

|<  <<  29 30 31 32 33 34 35 36 37 38 39  >>  >|