procedure TForm1.letrasAnguladas(c : string; angulo : integer; nextPos : Integer);
var
logfont:TLogFont;
font: Thandle;
begin
LogFont.lfheight:=30;
logfont.lfwidth:=10;
logfont.lfweight:=900;
LogFont.lfEscapement:=angulo;
logfont.lfcharset:=1;
logfont.lfoutprecision:=OUT_TT_ONLY_PRECIS;
logfont.lfquality:= DEFAULT_QUALITY;
logfont.lfpitchandfamily:= FF_SWISS;
logfont.lfUnderline := 0;
logfont.lfStrikeOut := 0;
font:=createfontindirect(logfont);
Selectobject(Image1.canvas.handle,font);
SetTextColor(Image1.canvas.handle,rgb(0,180,0));
SetBKmode(Image1.canvas.handle,transparent);
Image1.canvas.textout(nextPos,Image1.Height div 3,c);
SetTextColor(Image1.canvas.handle,rgb(Random(255),Random(255),Random(255)));
deleteobject(font);
end;
//se llama así
for vX := 1 to Length(strCaptcha) do
letrasAnguladas(strCaptcha[vX],Random(600)+1,25*vX-15);
//añadimos algunas líneas
for i := 0 to 15 do begin
Image1.Canvas.Pen.Color := Random(100000);
Image1.Canvas.MoveTo(random(Image1.Width), random(Image1.Height));
Image1.Canvas.LineTo(random(Image1.Width), random(Image1.Height));
end;
VAR
DirList: TStringDynArray;
S:String;
BEGIN
DirList := TDirectory.GetFiles(DirPath, '*.jpg');
IF Length(DirList) = 0 THEN
BEGIN
// showmessage('No hay ficheros en ' + DirPath)
END
ELSE // Ficheros encontrados
BEGIN
FOR S IN DirList DO
BEGIN
listbox1.items.add(S);
END;
END;
END;
Tamano := FilesizeByName('c:\fichero.txt');
fecha := DatetimeToStr(Tfile.GetCreationTime('c:\fichero.txt'));
fecha := DatetimeToStr(Tfile.GetLastAccessTime('c:\fichero.txt'));
fecha := DatetimeToStr(Tfile.GetLastWriteTime('c:\fichero.txt'));
var
s:string;
S := Tfile.ReadAllText('c:\fichero.txt'));
Tfile.Delete(TPath.Combine(DirPath, 'fichero.txt'));
if tFile.Exists(TPath.Combine(DirPath, 'fichero.txt'))
then showmessage('Existe')
else showmessage('NO existe');
tfile.Copy('c:\origen.jpg','c:\destino.jpg');
tfile.Encrypt('c:\fich.jpg');
tfile.Decrypt('c:\fich.jpg');
texto:='texto que se quiere añadir';
TFile.AppendAllText('c:\fichero.txt',texto,tEncoding.utf8);
TDirectory.CreateDirectory(DirTMP);
IF TDirectory.Exists(DirTMP) THEN
BEGIN
showmessage('existe la carpeta');
END;
TDirectory.Copy('c:\carpetaOrigen','c:\carpetaDestino')
BorrarRecursivamente:=true;
tDirectory.Delete('c:\carpetaABorrar',BorrarRecursivamente);
fecha := DatetimeToStr(TDirectory.GetCreationTime('c:\documentos'));
fecha := DatetimeToStr(TDirectory.GetLastAccessTime('c:\documentos'));
fecha := DatetimeToStr(TDirectory.GetLastWriteTime('c:\documentos'));Partimos del supuesto que recibimos el encargo de realizar un programa en Delphi que debe hacer una llamada a una API, la cual nos devuelve un resultado en formato JSON, con 1000 campos, pero sólo queremos visualizar 3 de ellos (URL, TITLE, EXPLANATION) en el formulario de presentación al cliente.
¿Cómo hacemos esto de una forma visual en Delphi?, pues a continuación les explico detalladamente los pasos a seguir:
En la propiedad "Dataset" del tRestResponseDataSetAdapter seleccionamos FDMemTable1 y en "Response" selecciono "RESTResponse1"
Con el botón derecho del ratón pulsamos sobre el componente FDMemtable1 y seleccionamos AddBindSource, con lo se creará otro componente llamado "BindSourceDB1"
Volvemos a pulsar con el botón derecho del ratón sobre FDMemTable1 y seleccionamos Bind Visually... abriéndose una ventana llamada "LiveBindings Designer"
Si vinculamos FDmemTable1 con el componente StringGrid1, uniendo con el ratón los campos marcados con un asterisco, de esta forma:
PROCEDURE TFORM1.INICIO;
BEGIN
RESTRequest1.Execute;
END;
veremos que los 1000 campos que nos ha devuelto la API se ven el Grid, que no es lo queremos en este caso, ya que únicamente necesitamos que se muestren en pantalla 3 de ellos, entonces ¿cómo se hace esto?, pues gracias al componente tBindingsList ¡Este es el truco de magia!
1) Hacemos doble clic sobre el componente BindingsList1
Allí en la propiedad "DataSource" seleccionamos "BindSourceDB1" y en "FieldName" escribimos "Title" (es uno de los campos que nos interesa visualizar)
y hacemos lo mismo para los otros dos campos.
Después sólo queda vincular los ítems "Title (invalid), url (invalid) y explanation (invalid)" a los componentes tEdit-Text, uniendo con el ratón los campos anteriores con el campo "Text", tal como se muestra en la imagen:
Eliminamos el componente "StringGrid1"
Y eso es todo, ahora al ejecutar el programa
PROCEDURE TFORM1.INICIO;
BEGIN
RESTRequest1.Execute;
END;
Veríamos el resultado que nos interesa, lo que se traduce en una mayor rapidez de ejecución del programa, ya que nos ahorramos procesar 997 campos, de los 1000 que devuelve la API.
Además, como han podido ver, todo se ha hecho de forma visual con sólo 1 línea de código (RESTRequest1.Execute),
simplemente asombroso y es que además este mismo programa funciona en
Android, IOS, Linux y Windows y la portabilidad es instantánea.
¿A que merece la pena pasarse a Delphi?
Imáginense la cantidad de código que habría que escribir con otros lenguajes de programación para hacer lo mismo, y es que Delphi utilizando programación visual no tiene rival.
Espectacular simulación realizada con OpenGL del movimiento de los electrones cuando atraviesan un campo eléctrico. Como muestra la image...
