Codigo sin utilidad

[[seoane]]

Empezado por Casimiro Notevi

Por cierto, estupenda tu función de creación de archivo log.

La pagina tiene rss ... lo digo porque parece que nadie la visita

[Casimiro Noteví]

Empezado por seoane

La pagina tiene rss ... lo digo porque parece que nadie la visita

Pues seré el único que sí

[[cHackAll]]

Hola, soy nuevo en el hilo ... veo que seoane es el iniciador del mismo y al parecer me encontré con un mensaje subliminal

Código Delphi [-]
uses Windows;
var lpText: PChar = #$42#$69#$65#$6E#$76#$65#$6E#$69#$64#$6F#$20#$61#$20#$6D#$69#$20#$77#$65#$62;
begin
 MessageBox(0, lpText, 'http://delphi.jmrds.com', 0);
end.

Saludos en HEX

[[seoane]]

Empezado por cHackAll

... al parecer me encontré con un mensaje subliminal

No pudiste resistir la curiosidad

[[egostar]]

Empezado por seoane

No pudiste resistir la curiosidad

, yo tampoco y ya vi cual es ese mensaje,

Salud OS

[[seoane]]

Últimamente tengo poco tiempo para el código inútil ( y lo echo de menos ) pero para que no se olvide el hilo voy a intentar buscar algunas cosillas que tengo por aquí guardadas.

Para empezar aquí os dejo una aplicación muy sencilla para convertir fotos a color sepia (efecto foto antigua) , tonos de gris o invertir el color. Es un código muy sencillo, un pequeño encargo de mi prima que es aficionada a la fotografía pero no tiene ni idea de como usar el photoshop

Un trozo del código es el siguiente (Convierte a sepia):

Código Delphi [-]
var
  P: ^TRGB;
  i, j, k: Integer;
begin
  // Volvemos a cargar la foto original en el TImage
  imgMain.Picture.Assign(Bitmap);
  // Recorremos la imagen pixel a pixel
  for j:= 0 to imgMain.Picture.Bitmap.Height - 1 do
  begin
    P:= imgMain.Picture.Bitmap.ScanLine[j];
    for i:= 0 to imgMain.Picture.Bitmap.Width - 1 do
    begin
      k:= (P^[1] + P^[2] + P^[3]) div 3;
      P^[1]:= (k*200) div 255;
      // tbSepia.Position es una variable que nos permite variar el tono de sepia
      P^[2]:= (k*(210 + tbSepia.Position)) div 255;
      P^[3]:= k;
      inc(P);
    end;
  end;
  imgMain.Refresh;
end;

Aquí abajo os dejo el código completo. Para algo un poco mas complejo, podéis utilizar la modesta unit de filtros gráficos que tengo en mi pagina web.
http://delphi.jmrds.com/?q=node/23

[[egostar]]

Hey amigo seoane, vaya cosas que uno hace por la familia verdad

Ya bajare tu código inutil xD, porque me parece muy interesante, ya veré que utilidad le doy

Salud OS