Foro: Firebird e Interbase
01-03-2011
|
|
Respuestas: 18
Visitas: 2.220
|
|
Foro: Firebird e Interbase
28-02-2011
|
|
Respuestas: 18
Visitas: 2.220
|
|
Foro: Varios
20-12-2010
|
|
Respuestas: 4
Visitas: 2.691
Por alguna restricción en particular?
Lo único...
Por alguna restricción en particular?
Lo único que se me ocurre es que por ejemplo
Código Delphi [-] (http://www.clubdelphi.com/foros/#)FTP.Password:='Pass a encriptar';
pase a ser
Código Delphi...
|
|
Foro: Varios
20-12-2010
|
|
Respuestas: 4
Visitas: 2.691
Hola!
Mirate los componentes...
Hola!
Mirate los componentes http://sourceforge.net/projects/tplockbox/
con ellos podras hacer lo que necesitas.
En mi caso, tenemos un ini con el usr y pwd encriptados para la conexion Zeos. En el...
|
|
Foro: Varios
10-12-2010
|
|
Respuestas: 5
Visitas: 42.894
Como bien comenta rhino0nt en la bdd se define...
Como bien comenta rhino0nt en la bdd se define como TINYINT(1).
Después en el Delphi, usamos Zeos, y en la unit ZAbstractRODataset tengo una pequeña modificación en la siguiente función:
procedure...
|
|
Foro: API de Windows
21-10-2010
|
|
Respuestas: 4
Visitas: 1.395
|
|
Foro: Varios
11-06-2010
|
|
Respuestas: 2
Visitas: 5.299
Hoooola!!
Si no me equivoco se llama...
Hoooola!!
Si no me equivoco se llama Distancia_de_Levenshtein
http://es.wikipedia.org/wiki/Distancia_de_Levenshtein
function levenshtein(Str1, Str2: String): Integer;
var
d : array of array of...
|
|
Foro: Varios
08-06-2010
|
|
Respuestas: 3
Visitas: 1.694
|
|
Foro: Varios
08-06-2010
|
|
Respuestas: 3
Visitas: 1.694
Hooola!!
Normalmente se pueden programar los...
Hooola!!
Normalmente se pueden programar los lectores de codigos de barras para añadir prefijos y/o sufijos al codigo leido . . . en nuestro caso lo hacemos al reves . . . hacemos que el lector...
|
|
Foro: OOP
02-06-2010
|
|
Respuestas: 5
Visitas: 3.876
Tambien se puede hacer así para...
Tambien se puede hacer así para encontrar/recorrer componentes :
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TCheckBox
then...
|
|
Foro: Lazarus, FreePascal, Kylix, etc.
19-05-2010
|
|
Respuestas: 7
Visitas: 2.526
|
|
Foro: Varios
12-01-2010
|
|
Respuestas: 7
Visitas: 7.104
En vez de stringreplace, usamos una funcion...
En vez de stringreplace, usamos una funcion propia
function StrTran( const cText, cOrigen, cDesti:string ):string;
var
nPos:Integer;
begin
Result := cText;
if cOrigen<>cDesti then
begin
...
|
|
Foro: Varios
12-01-2010
|
|
Respuestas: 7
Visitas: 7.104
Nosotros tambien usamos lectores de codigo de...
Nosotros tambien usamos lectores de codigo de barras (Metrologic) y estos se pueden programar añadiendo prefijos y sufijos para que simulen la pulsación de teclas . . .
En nuestro caso, simulamos...
|
|
Foro: API de Windows
04-12-2009
|
|
Respuestas: 2
Visitas: 1.613
|
|
Foro: Conexión con bases de datos
14-04-2009
|
|
Respuestas: 3
Visitas: 2.070
|
|
Foro: Gráficos
22-10-2007
|
|
Respuestas: 3
Visitas: 1.318
Exif
Lo que (creo) que necesitas es acceder a los datos EXIF de la imagen
http://mcguirez.homestead.com/downloads.html
http://www.hugsan.com/EXIFutils/
Saludos!
|
|
Foro: API de Windows
13-06-2007
|
|
Respuestas: 3
Visitas: 1.458
Que maquina!!!
Muchas grácias!!!
Estaba llegando a la misma conclusión a partir de este ejemplo http://www.swissdelphicenter.ch/torry/showcode.php?id=616
Saludos!!
|
|
Foro: API de Windows
13-06-2007
|
|
Respuestas: 3
Visitas: 1.458
Saber dlls cargadas
Hoooola!
Me estoy peleando con la api para ver si hay alguna forma de saber (en runtime) que dlls hay cargadas una vez ha arrancado la aplicacion?
Esto viene de que al hacer reports (QR) carga y...
|
|
Foro: Conexión con bases de datos
12-03-2007
|
|
Respuestas: 9
Visitas: 13.195
|
|
Foro: Conexión con bases de datos
12-03-2007
|
|
Respuestas: 1
Visitas: 5.617
Error BDE 2501+Explorer 7...posible solución
Hoooola!!
Desde hace una semana nos hemos encotrado con un problema similar al comentado en este hilo http://www.clubdelphi.com/foros/showthread.php?t=40911&highlight=2501
Nuestra solución ha...
|
|
Foro: Varios
03-11-2006
|
|
Respuestas: 5
Visitas: 1.987
EnterToTab
Usar (y no tirar:-) en el KeyPress del control:
procedure EnterToTab(Sender:TObject; var Key:char);
begin
if (Key=#13) then
begin
if (Sender is TWinControl) then
begin
Key...
|
|
Foro: Internet
21-09-2006
|
|
Respuestas: 16
Visitas: 10.340
A ver si te sirve esto . . .
function IP_Publica:string;
function IsNumeric( T:string ):boolean;
begin
Result:=false;
if (length(T)>0) then
case T[1] of
'0'..'9':Result:=true;
end;
end;
var
|
