|
|
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 - zeraf_
Páginas: [1]
1
« en: Martes 26 de Septiembre de 2006, 02:59 »
el primer resultado de una búsqueda en google: flash + delphiNo los he probado por falta de tiempo, pero espero te sirvan.
2
« en: Lunes 25 de Septiembre de 2006, 20:21 »
Ok, gracias por la aclaración Eternal Idol. Aunque no estaba matando y resumiendo, simplemente fue un ejemplo de como podía utilizar las funciones para distintos casos en los que había que matar ó resumir un hilo, por eso los comentarios y puntos suspensivos al final  . y con respecto a resumir o matar los hilos, mejor estoy trabajando con un vector de tipo TPrograma (de la misma clase del hilo) en el que voy almacenando los hilos que se van creando y los controlo desde allí. muchas gracias por todo y por acá estaré preguntando de nuevo si me surgen más dudas, es que estoy terminando un proyecto (simulando el funcionamiento de un sistema operativo, cada hilo es un nuevo programa que se cargaba en la memoria y es por esto que debía tener la opción de matar un proceso en cualquier momento).
3
« en: Lunes 25 de Septiembre de 2006, 09:13 »
Bicholey, necesitas de Variants? sino, remuevela de los uses de tu form 
4
« en: Lunes 25 de Septiembre de 2006, 09:12 »
 ya encontré la forma de resolver el problema, xD no había visto las funciones hasta que me dio por probar y por fin, en todo caso muchas gracias Enko. Así lo resolví: TerminateThread(HandledelThread,0);//para terminar ResumeThread(HandledelThread);//para resumir ...
5
« en: Lunes 25 de Septiembre de 2006, 03:15 »
Que tal Enko, primero que todo gracias por responder, bueno ya había realizado algunas pruebas con SendMessage, como la que me planteas, pero no pude finalizar el proceso. Lo que necesito es parar un thread o hacer que termine. Hice un ejemplo para realizar pruebas y escribi por ejemplo en el Execute de un thread esto: procedure TPrograma.Execute; begin UnEdit.Text := 'uno'; Suspend; if not terminated then UnEdit.Text := 'dos'; end;
Mientras tengo el thread suspendido quiero finalizarlo e impedir que ponga por ejemplo el 'dos' en la caja de texto, pero no he logrado conseguirlo, sería enviarle un mensaje de terminar al thread pero no se como, en todo caso gracias por la ayuda que me puedan dar. O, digamos que tengo una variable de tipo TPrograma, pero fuera del thread, en la unit de la form, y quiero por ejemplo pasar por un parámetro en el create del thread esta variable pero sería por referencia para modificar dentro del thread para que sea igual a Self, o al proceso actual, como puedo hacer esto?. Saludos
6
« en: Domingo 24 de Septiembre de 2006, 21:32 »
Hola que tal, quería preguntar si hay alguna forma de finalizar un proceso de mi aplicación si solo tengo el Handle y el ThreadID del proceso. tal vez enviandole algun mensaje pero no se como, si alguien me puede ayudar.. gracias
7
« en: Lunes 18 de Septiembre de 2006, 07:07 »
bueno, yo te recomiendo los de http://almdev.com/, el aspecto vista que trae es excelente
8
« en: Martes 1 de Agosto de 2006, 22:20 »
9
« en: Sábado 10 de Junio de 2006, 07:10 »
 Un ejemplo de una función para encriptar y desencriptar cadenas: function EncDec(Cadena: String; Clave: Integer): String; var x : Integer; begin Result:=''; RandSeed := Clave; for x := 1 to Length(Cadena) do Result := Result + Chr(Byte(Cadena[x]) xor random(256)); end;
10
« en: Martes 6 de Junio de 2006, 05:30 »
void ubicar(int i, int j, matriz mat) { int x; if (i < 9) { if (j < 9) { if(mat[i][j] == -1) { for(x = 1; x <= 9; x++) { if(NOenfila(x, i, mat) && NOencolumna(x, j, mat) && NOenmatriz(x, i, j, mat)) { mat[i][j] = x; ubicar(i, j+1, mat); mat[i][j] = -1; } } } else ubicar(i, j+1, mat); } else ubicar(i+1, 0, mat); } else mostrar(mat); }
Es tarea pasarlo a Delphi, y terminarlo  .  
11
« en: Martes 6 de Junio de 2006, 05:17 »
En el evento KeyPress del Edit puede validar que conjunto de teclas desea que sean admitidas, aunque con Shift+Insert se puede pegar lo que hay en el portapapeles de Windows. Por ejemplo, para que solo sean admitidas las teclas "0123ABCDabcd" procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if StrScan('0123ABCD', UpCase(key)) = nil then Key := #0; end;
La longitud la puedes validar con la propiedad MaxLength del TEdit.
Páginas: [1]
|
|
|
Mostrar Mensajes
