• Viernes 29 de Marzo de 2024, 08:11

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Isnel

Páginas: [1]
1
Windows / Problemas Con Explorador De Windows
« en: Miércoles 17 de Octubre de 2007, 19:17 »
Hola:


Tengo una amiga que tiene su PC con problema desde que kaspersky detectó un virus (no anotó cual) y lo eliminó. El problema está en que al iniciar windows no aparece el botón de inicio, ni iconos, ni barra de tareas (no se inicia el proceso explorer.exe). Tiene instalado en su PC Windows Xp profesional Sp2.



La pregunta está en si alguien sabe si existe alguna clave en el registro de windows que carge el proceso explorer.exe al iniciar windows o si saben de alguna otra solución que no sea volver a reinstalar todo el sistema.


Isnel

2
Delphi / Problemas Al Actulizar Ibquery
« en: Miércoles 29 de Noviembre de 2006, 21:50 »
Amigos, quiero hacer una aplicación que me mantenga actulizado a traves de una DBGrid, cada vez que otra aplicación le inserte un registro a una tabla de una base de datos en InterBase.

Le agrego a un formulario las componentes
TIBDatabase
TIBTransaction
TIBQuery
TDBGrid  
TDataSource
TIBEvents (Para que me avice cuando se le ha insertado un registro a la tabla)

Código: Text
  1. object Form1: TForm1
  2.   object DBGrid1: TDBGrid
  3.     DataSource = DataSource1
  4.   end
  5.  
  6.   object IBDatabase1: TIBDatabase
  7.     Connected = True
  8.     DatabaseName = 'd:\Datos\DataBase.GDB'
  9.     Params.Strings = (
  10.       'user_name=SYSDBA'
  11.       'password=masterkey')
  12.     LoginPrompt = False
  13.     DefaultTransaction = IBTransaction1
  14.     IdleTimer = 0
  15.     SQLDialect = 3
  16.   end
  17.  
  18.   object IBTransaction1: TIBTransaction
  19.     Active = True
  20.     DefaultDatabase = IBDatabase1
  21.     AutoStopAction = saNone
  22.   end
  23.  
  24.   object IBQuery1: TIBQuery
  25.     Database = IBDatabase1
  26.     Transaction = IBTransaction1
  27.     Active = True
  28.     BufferChunks = 1000
  29.     CachedUpdates = False
  30.     SQL.Strings = (
  31.       'select * from SMDRP order by ID desc')
  32.   end
  33.  
  34.   object IBEvents1: TIBEvents
  35.     AutoRegister = True
  36.     Database = IBDatabase1
  37.     Events.Strings = (
  38.       'New_Record')
  39.     Registered = False
  40.     OnEventAlert = IBEvents1EventAlert
  41.   end
  42.  
  43.   object DataSource1: TDataSource
  44.     DataSet = IBQuery1
  45.   end
  46. end
  47.  

En el evento OnEventAlert de IBEvent1 pongo

Código: Text
  1.  
  2. procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  3.   EventCount: Integer; var CancelAlerts: Boolean);
  4. begin
  5.     IBQuery1.Close;
  6.     IBQuery1.Open;
  7. end;
  8.  
  9.  

Pero algo está pasando que la DBGrid siempre muestra lo mismo, aunque se ejecute el procedure IBEvents1EventAlert.

3
Delphi / Net Send
« en: Jueves 16 de Noviembre de 2006, 16:01 »
Quiero hacer un programa para enviar mensajes desde un servidor a las demas maquinas de la red (algo parecido a Net Send), pero no se que componente o función usar. No quiero usar los componentes de Indy porque necesitaria un programa cliente en cada maquina.

Buscando encontré la API NetMessageBufferSend, pero no se como usarla (?en que DLL está? y ?Cómo importarla?).

Aquí les mando lo que encontré en la ayuda. Gracias de antemano

The NetMessageBufferSend function sends a buffer of information to a registered message alias.

Security Requirements

No special group membership is required to execute NetMessageBufferSend on a LAN Manager or Windows NT system. Admin, Accounts, Print, or Server operator group membership is required to successfully execute NetMessageBufferSend on a remote server.

NET_API_STATUS NetMessageBufferSend(

    LPTSTR servername,   
    LPTSTR msgname,   
    LPTSTR fromname,   
    LPBYTE buf,   
    DWORD buflen   
   );   
 

Parameters

servername

Pointer to a Unicode string containing the name of the remote server on which the function is to execute. A NULL pointer or string specifies the local computer.

msgname

Pointer to a Unicode string containing the message name to which the message buffer should be sent.

fromname

Pointer to a Unicode string containing the message name sending the information. The fromname parameter is new for Windows networking. This parameter is needed for sending interrupting messages from the computer name rather than the logged on user. If NULL is specified, the message is sent from the logged-on user as with LAN Manager 2.x.

buf

Pointer to a buffer of message text.

buflen

The length, in bytes, of the message text in buf.

 

See Also

NetMessageNameAdd, NetMessageNameDel, NetMessageNameEnum, NetMessageNameGetInfo

4
ASP / Mostrar Un Sp Como Una Tabla
« en: Miércoles 15 de Noviembre de 2006, 19:33 »
Hola colegas

Haber si me pueden ayudar a decifrar que es lo que ocurre aquí.

Tengo el SP SMDRP_AMP (en InterBase 6.5 Dialec 3)

Código: Text
  1. CREATE PROCEDURE SMDRP_AMP
  2. RETURNS (
  3.     ID INTEGER,
  4.     FECHA DATE,
  5.     HORA TIME,
  6.     TELF VARCHAR(38) CHARACTER SET NONE,
  7.     LUGAR VARCHAR(30) CHARACTER SET NONE)
  8. AS
  9. begin
  10.  
  11.   for select id,
  12.              fecha,
  13.              hora,
  14.              telf,
  15.   from smdrp
  16.   into :id,
  17.         :fecha,
  18.         :hora,
  19.         :telf,
  20.      begin
  21.          Lugar = '';
  22.          SELECT DESCRIP FROM DIRTELF
  23.          WHERE (TELF = :TELF)
  24.          INTO :LUGAR;
  25.          SUSPEND;
  26.      end
  27. end
  28.  
  29.  

El objetivo del SP es hacer una especie de JOIN entre SMDRP y DIRTELF por el campo TELF (observa que cuando no encuentra TELF en DIRTELF devuelve Lugar = '')

Establezco la conexión y el juego de registro así:

Código: Text
  1. <%
  2. Dim Listado
  3. Dim Listado_numRows
  4.  
  5. Set Listado = Server.CreateObject("ADODB.Recordset")
  6. Listado.ActiveConnection = "dsn=Phone;uid=SYSDBA;pwd=masterkey;"
  7. Listado.Source = "SELECT * FROM SMDRP_AMP"
  8. Listado.CursorType = 0
  9. Listado.CursorLocation = 2
  10. Listado.LockType = 1
  11. Listado.Open()
  12.  
  13. Listado_numRows = 0
  14. %>
  15.  

Y al final despliego lo registros en una tabla.

Ahora bien si la cantidad de registros a mostrar no es muy grande no hay problemas, pero cuando crece la cantidad de registros (+200) se demora tanto que la pagina devuelve un error. Esto no sucede si en lugar de usar el SP SMDRP_AMP uso la tabla SMDRP.

5
Hardware / Temperatura De Trabajo Hd
« en: Miércoles 11 de Octubre de 2006, 16:12 »
¿A qué temperatura debe trabajar normalmente un disco duro?
HD 160 GB S-ATA

Mi disco duro está trabajando entre 57 y 62 grados. Me da la impresión de que es demasiado.

6
InterBase/Firebird / ¿cómo Usar El Caracter ´ En Una Consulta?
« en: Miércoles 4 de Octubre de 2006, 15:27 »
Hola

Necesito insertar una cadena de texto en un campo de una base de datos en InterBase 6.5 Dialect 3, pero la cadena de texto contiene el caracter ´ y se produce un error. La cosa esta

INSERT INTO ERRORES (ERR) VALUES(´5/ 8/06  10:54PM 00:01´24" 7380´)

Como ven la cadena contiene ´ que se usa para identificar el minuto.

¿Que se puede hacer?

7
InterBase/Firebird / ¿cómo Extraer Dia, Mes Y Año De Una Fecha?
« en: Viernes 22 de Septiembre de 2006, 21:21 »
¿Cómo puedo extraer el dia, mes y año de una fecha en una consulta sql?

8
InterBase/Firebird / Driver Para Interbase
« en: Viernes 22 de Septiembre de 2006, 21:17 »
Buscando en la web un drivers libre para Interbase descargué
GM - InterBase ODBC Driver
de
http://www.gm-software.de/download/GMInter...ODBC_v1.4.0.exe

?Alguien ha usado este driver y puede opinar sobre él?

9
Dudas informáticas / Sitios Web De Intranet Local Con Acceso Telefónico
« en: Martes 1 de Agosto de 2006, 23:06 »
Uso Windows Server 2003 como servidor web en una red local, en la cual tengo desplegada con IIS6 un sitio web para la red local y todo funciona bien mientras no me conecto a internet mediante acceso telefónico, cuando estoy conectado no puedo desplegar el sitio web local en el servidor pues intenta usar un proxy remoto que uso para conectarme a internet. Ya le puse en opciones de internet no usar proxy en direcciones locales pero no funciona.

Como resolver este problema?

10
Publicaciones y e-books / Biblia Del Delphi 8 .net
« en: Miércoles 17 de Mayo de 2006, 18:26 »
Eso mismo

me hace falta ese libro pero no tengo dinero

11
InterBase/Firebird / Udf
« en: Martes 16 de Mayo de 2006, 16:07 »
Necesito una función que me devuelva el día de la la semana de una fecha dada, hice esta DLL
Código: Text
  1. library IBExt;
  2.  
  3. uses
  4.   SysUtils,
  5.   Classes;
  6.  
  7. {$R *.res}
  8.  
  9. Type
  10.  TIBDate = Record
  11.     Day: LongInt;
  12.     Frac: LongInt;
  13.  end;
  14.  
  15. function DiaSemana(var Date: TIBDate): SmallInt; cdecl;
  16. begin
  17.  Result := Date.Day mod 7 + 4;
  18. end;
  19.  
  20. exports
  21.   DiaSemana;
  22. begin
  23. end.
  24.  
  25.  

Luego la uso dentro de un Trigger para probarla

Código: Text
  1. CREATE TABLE "PRUEBA"
  2. (
  3.   "FECHA"  DATE,
  4.   "DIA_SEMANA"  SMALLINT
  5. );
  6. SET TERM ^&#59;
  7.  
  8.  
  9.  
  10. CREATE TRIGGER "CAL_DIA" FOR "PRUEBA"
  11. ACTIVE BEFORE INSERT POSITION 0
  12. AS
  13.   BEGIN
  14.          NEW.DIA_SEMANA = DiaSemana(NEW.FECHA);
  15.   END
  16.  ^
  17.  
  18. COMMIT WORK ^
  19. SET TERM&#59;^
  20.  

Pero cuando intento insertar un campo a la tabla Prueba se produce un error y se pierde la conexión con la BD. Tengo la sensación que el problema está en como InterBase representa el tipo de dato "Date", tal vez esté incorrecta la representación
Código: Text
  1.  
  2.  TIBDate = Record
  3.     Day: LongInt;
  4.     Frac: LongInt;
  5.  end;
  6.  
  7.  

Si alguien sabe como se hace, o tiene algunas DLL que resuelvan este problema, ruego me ayuden

(Estoy usando Delphi Enterprice 7 y el Interbase que viene con él)

12
Delphi / Programación De Servicios
« en: Miércoles 22 de Marzo de 2006, 21:37 »
Estoy programando un servicio de windows, pero no puedo deternerlo una vez iniciado, se produce este error

Error 1053: El servicio no ha respondido a la petición o inicio del control en un tiempo adecuado.

No se que puede estar dando este problema. Voy a agradecer cualquier ayuda o sugerencia que me den, pues nunca he programado un servicio y ya este me tiene varios dias con dolor de cabeza.

Código: Text
  1. procedure TRDCOMService.ServiceStart(Sender: TService;
  2.   var Started: Boolean);
  3. begin
  4.   ComPort1.Open;
  5.   Interactive := True;
  6.   ServiceType := stWin32;
  7.   StartType := stAuto;
  8.   Started := true;
  9. end;
  10.  
  11. procedure TRDCOMService.ServiceExecute(Sender: TService);
  12. begin
  13.  While Not Terminated do
  14.    if (ComPort1.InputCount > 80) then FlushBuffer;
  15. end;
  16.  
  17. procedure TRDCOMService.ServiceStop(Sender: TService;
  18.   var Stopped: Boolean);
  19. begin
  20.   FlushBuffer;
  21.   ComPort1.Close;
  22.   Stopped := True;
  23. end;
  24.  
  25. procedure TRDCOMService.FlushBuffer;
  26. var
  27.   Buffer: PChar;
  28.   BytesCopy: DWord;
  29.  
  30. begin
  31.   Buffer := AllocMem(ComPort1.InputCount);
  32.   Stream := TFileStream.Create('lectura.txt', fmOpenReadWrite);
  33.   Stream.Seek(0, soFromEnd);
  34.   try
  35.     BytesCopy := ComPort1.Read(Buffer^, ComPort1.InputCount);
  36.     Stream.Write(Buffer^, BytesCopy);
  37.   finally
  38.     FreeMem(Buffer);
  39.     Stream.Free;
  40.   end;
  41. end;
  42.  

13
Dudas informáticas / D915gag
« en: Miércoles 14 de Diciembre de 2005, 15:44 »
Tengo una PC con motherboard D915GAG y la quiero usar como servidor de red pero no encuentro drivers para Windows 2003 server.

?donde pudiera bajarmelos?

14
Dudas informáticas / Cableado De Red
« en: Lunes 21 de Noviembre de 2005, 19:27 »
?Hasta que punto puede causar inteferencia la cercanía de la red eléctrica a la red de datos?

?Es posible que se produzca inteferencia si los cables de red atraviesan algunas paredes juntos con cables electricos (por el mismos hoyo)?

?A que distancia deben separse los cables?

15
Delphi / Puertos Serie
« en: Jueves 20 de Octubre de 2005, 20:24 »
Hola

Acabo de registrarme en SoloCodigo

Por favor necesito saber donde puedo encontrar información de como se puede con Delphi leer o escribir datos en un puerto serie, pues necesito hacer un software que me reciba y procese ciertos datos que me envia una pizarra teléfonica conectada a mi PC por un puerto serie.

Páginas: [1]