|
|
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.
Mensajes - Isnel
1
« en: Viernes 19 de Octubre de 2007, 20:18 »
La solución está en la clave Userinit en
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
debe tener el valor C:\WINDOWS\system32\userinit.exe,
y no igfxtha.exe u otra cosa
2
« en: Miércoles 17 de Octubre de 2007, 23:06 »
Eso que me dices es lo que está haciendo ahora cada vez que enciende la PC.
Pero lo que yo necesito es que se incie el explorer de windows automaticamente cuando inicia windows como es normal. Parece que el virus dañó algo en el registro de windows o algo parecido y el antivirus no pudo corregir.
3
« 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
4
« 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) object Form1: TForm1 object DBGrid1: TDBGrid DataSource = DataSource1 end object IBDatabase1: TIBDatabase Connected = True DatabaseName = 'd:\Datos\DataBase.GDB' Params.Strings = ( 'user_name=SYSDBA' 'password=masterkey') LoginPrompt = False DefaultTransaction = IBTransaction1 IdleTimer = 0 SQLDialect = 3 end object IBTransaction1: TIBTransaction Active = True DefaultDatabase = IBDatabase1 AutoStopAction = saNone end object IBQuery1: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 Active = True BufferChunks = 1000 CachedUpdates = False SQL.Strings = ( 'select * from SMDRP order by ID desc') end object IBEvents1: TIBEvents AutoRegister = True Database = IBDatabase1 Events.Strings = ( 'New_Record') Registered = False OnEventAlert = IBEvents1EventAlert end object DataSource1: TDataSource DataSet = IBQuery1 end end
En el evento OnEventAlert de IBEvent1 pongo procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String; EventCount: Integer; var CancelAlerts: Boolean); begin IBQuery1.Close; IBQuery1.Open; end;
Pero algo está pasando que la DBGrid siempre muestra lo mismo, aunque se ejecute el procedure IBEvents1EventAlert.
5
« en: Jueves 16 de Noviembre de 2006, 18:32 »
Ya resolví. Aquí va la solución para los que estén interesados function NetMessageBufferSend(ServerName: LPWSTR; MsgName: LPWSTR; FromName: LPWSTR; Buf: LPWSTR; BufLen: DWORD): DWORD; stdcall; external 'NetApi32.dll' name 'NetMessageBufferSend'; function NetSend(destino, mensaje: String): Cardinal; var wsMensaje, wsDestino: WideString; longMensaje: Integer; begin wsMensaje := mensaje; wsDestino := destino; longMensaje := Length(wsMensaje)*2; Result := NetMessageBufferSend(nil, PWideChar(wsDestino), nil, PWideChar(wsMensaje), longMensaje); end; procedure TForm1.Button1Click(Sender: TObject); var Error: Cardinal; begin Error := NetSend(Destino.Text, Mensaje.Text); if Error = 0 then ShowMessage('Mensaje enviado') else ShowMessage('Mensaje no enviado, error: ' + IntToStr(Error)); end; end.
6
« 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
7
« 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) CREATE PROCEDURE SMDRP_AMP RETURNS ( ID INTEGER, FECHA DATE, HORA TIME, TELF VARCHAR(38) CHARACTER SET NONE, LUGAR VARCHAR(30) CHARACTER SET NONE) AS begin for select id, fecha, hora, telf, from smdrp into :id, :fecha, :hora, :telf, begin Lugar = ''; SELECT DESCRIP FROM DIRTELF WHERE (TELF = :TELF) INTO :LUGAR; SUSPEND; end end
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í: <% Dim Listado Dim Listado_numRows Set Listado = Server.CreateObject("ADODB.Recordset") Listado.ActiveConnection = "dsn=Phone;uid=SYSDBA;pwd=masterkey;" Listado.Source = "SELECT * FROM SMDRP_AMP" Listado.CursorType = 0 Listado.CursorLocation = 2 Listado.LockType = 1 Listado.Open() Listado_numRows = 0 %>
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.
8
« en: Viernes 13 de Octubre de 2006, 18:28 »
LA SOLUCION ESTA EN SUSTITUIR EL CARACTER ' POR '' (2 VECES ', NO LA COMILLA DOBLE ")
INSERT INTO ERRORES (ERR) VALUES('5/ 8/06 10:54PM 00:01''24" 7380')
Y DE ESTE MODO SE INSERTA LA CADENA CORRECTA
5/ 8/06 10:54PM 00:01'24" 7380
9
« 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.
10
« en: Miércoles 11 de Octubre de 2006, 15:59 »
INSERT INTO ERRORES (ERR) VALUES(´5/ 8/06 10:54PM 00:01´24" 7380´)
Aquí confundí el caracter ' con ´. Lo que necesito hacer es: INSERT INTO ERRORES (ERR) VALUES('5/ 8/06 10:54PM 00:01'24" 7380')
11
« 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?
12
« 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?
14
« en: Miércoles 2 de Agosto de 2006, 15:57 »
No se como se usan
15
« en: Miércoles 2 de Agosto de 2006, 14:43 »
Desde cualquier estación de trabajo funciona bien menos desde el propio servidor
16
« en: Miércoles 2 de Agosto de 2006, 14:40 »
ya probé también eso y no mefuncionó
17
« 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?
18
« en: Miércoles 17 de Mayo de 2006, 18:26 »
Eso mismo
me hace falta ese libro pero no tengo dinero
19
« en: Miércoles 17 de Mayo de 2006, 18:19 »
YA SE LO QUE PASA. HAY QUE DECLARAR EL PARAMETRO DE RETORNO POR VALOR DECLARE EXTERNAL FUNCTION DIASEMANA DATE RETURNS SMALLINT BY VALUE ENTRY_POINT 'DiaSemana' MODULE_NAME 'IBExt.dll';
20
« 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 library IBExt; uses SysUtils, Classes; {$R *.res} Type TIBDate = Record Day: LongInt; Frac: LongInt; end; function DiaSemana(var Date: TIBDate): SmallInt; cdecl; begin Result := Date.Day mod 7 + 4; end; exports DiaSemana; begin end.
Luego la uso dentro de un Trigger para probarla CREATE TABLE "PRUEBA" ( "FECHA" DATE, "DIA_SEMANA" SMALLINT ); SET TERM ^; CREATE TRIGGER "CAL_DIA" FOR "PRUEBA" ACTIVE BEFORE INSERT POSITION 0 AS BEGIN NEW.DIA_SEMANA = DiaSemana(NEW.FECHA); END ^ COMMIT WORK ^ SET TERM;^
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 TIBDate = Record Day: LongInt; Frac: LongInt; end;
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)
21
« en: Viernes 14 de Abril de 2006, 15:57 »
La sintaxis de StrScan es la siguiente: function StrScan(const Str: PChar; Chr: Char): PChar;
El primer parametro Str es de tipo PChar (puntero a una cadena de caracteres terminada en 0) y el segundo Chr es de tipo Char (Caracter). Esta funcion busca la ocurrencia del caracter Chr en la cadena Str y si lo encuentra devuelve un puntero a la primera ocurrencia de este, de lo contrario devuelve el puntero nil que significa que el puntero no apunta a ningun lado.
22
« en: Jueves 23 de Marzo de 2006, 14:47 »
Puedes usar Pos function Pos(Substr: string; S: string): Integer;
Esta función devuelve la posición de la primera ocurrencia de Substr dentro de S. También puedes usar StrPos function StrPos(const Substr, S: PChar): PChar;
Esta función devuelve un puntero a la primera ocurrencia de Substr de S. Puedes pasar la propiedad Text de TMemo como el parámetro S en estas funciones Ejemplo:Agrega un TMemo a una forma y adicionale texto, agregale a la forma un TEdit y un TButton y en el OnClick evento del TButton poner procedure TForm1.Button1Click(Sender: TObject); begin Memo1.SelStart := Pos(Edit1.Text, Memo1.Text)-1; Memo1.SelLength := Length(Edit1.Text); Memo1.SetFocus; end;
Ejecuta la aplicación y escribe algun fragmento de texto en el TEdit y presiona el botón, si encuentra el texto en el TMemo, lo seleccionará. Espero que te sirva
23
« 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. procedure TRDCOMService.ServiceStart(Sender: TService; var Started: Boolean); begin ComPort1.Open; Interactive := True; ServiceType := stWin32; StartType := stAuto; Started := true; end; procedure TRDCOMService.ServiceExecute(Sender: TService); begin While Not Terminated do if (ComPort1.InputCount > 80) then FlushBuffer; end; procedure TRDCOMService.ServiceStop(Sender: TService; var Stopped: Boolean); begin FlushBuffer; ComPort1.Close; Stopped := True; end; procedure TRDCOMService.FlushBuffer; var Buffer: PChar; BytesCopy: DWord; begin Buffer := AllocMem(ComPort1.InputCount); Stream := TFileStream.Create('lectura.txt', fmOpenReadWrite); Stream.Seek(0, soFromEnd); try BytesCopy := ComPort1.Read(Buffer^, ComPort1.InputCount); Stream.Write(Buffer^, BytesCopy); finally FreeMem(Buffer); Stream.Free; end; end;
24
« 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?
25
« 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?
|
|
|
Mostrar Mensajes
