Felicitaciones a Domingo Seoane por sus primeros 1.000 mensajes

[dec]

Hola,

Este hilo es para felicitar a Domingo Seoane por sus primeros mil mensajes en estos Foros. A todos nos consta la calidad de sus respuestas, fruto de su conocimiento de Windows, Delphi y otras herramientas, APIS y lenguajes que tocamos en estos Foros. Enhorabuena Seoane, que vengan muchos más como los primeros mil por lo menos.

[Casimiro Notevi]

FELICIDADES


Aquí mi regalo.

[roman]

Código Delphi [-]
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  Context: DWORD;

begin
  Result := FALSE;
  Context:= 0;
  hNet := InternetOpen('agentSeoane', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if (hNet <> nil) then
  begin
    hCon:= InternetConnect(hNet, 'ftp.domingo.seoane', 21, 'seoane', 'congratulations', INTERNET_SERVICE_FTP, 0, Context);

    if (hCon <> nil) then
    begin
      Result := FtpPutFile(hCon, 'c:\felicidades.jpg', 'mis felicitaciones/felicidades.jpg', FTP_TRANSFER_TYPE_BINARY, Context);
      InternetCloseHandle(hCon);
    end;

    InternetCloseHandle(hNet);
  end;
end;

[[seoane]]

Código Delphi [-]
_______XXXX______________XXXXXX________XXXXXX________XXXXXX____
______XXXXX_____________XXXXXXXX______XXXXXXXX______XXXXXXXX___
_____XXXXXX____________XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
___XXXXXXXX____________XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
__XXXXXXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__XXX_XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
__X___XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX___________XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_
______XXXXX____XXXXX___XXXX__XXXX____XXXX__XXXX____XXXX__XXXX__
______XXXXX____XXXXX___XXXXXXXXXX____XXXXXXXXXX____XXXXXXXXXX__
______XXXXX____XXXXX____XXXXXXXX______XXXXXXXX______XXXXXXXX___
______XXXXX____XXXXX_____XXXXXX________XXXXXX________XXXXXX____

Y sobre todo:

Código Delphi [-]
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
____________________________________________________XXXXX____________________________
_____________________________________________________________________________________
___XXXX_XXXXX__XXXX_XXX____XXXXXXX_______XXXXXX_____XXXXX_____XXXXXXX______XXXXXXX___
__XXXXXXXXXXX__XXXXXXXX__XXXXXXXXXX_____XXXXXXXXX___XXXXX___XXXXXXXXXX____XXXXXXXXX__
_XXXXXXXXXXXX__XXXXXXX__XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXXX__XXXX_
_XXXXX__XXXXX__XXXXXX___XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX_______
_XXXXX__XXXXX__XXXXX__________XXXXXX__XXXXX_________XXXXX________XXXXXX__XXXXXXXXX___
_XXXXX__XXXXX__XXXXX______XXXXXXXXXX__XXXXX_________XXXXX____XXXXXXXXXX___XXXXXXXXX__
_XXXXX__XXXXX__XXXXX_____XXXXX_XXXXX__XXXXX__XXX____XXXXX___XXXXX_XXXXX_____XXXXXXXX_
_XXXXX__XXXXX__XXXXX____XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX__XXXXX________XXXXX_
__XXXXXXXXXXX__XXXXX____XXXXXXXXXXXX___XXXXXXXXXX___XXXXX__XXXXXXXXXXXX__XXXX__XXXXX_
__XXXXXXXXXXX__XXXXX_____XXXXXXXXXXX____XXXXXXXXX___XXXXX___XXXXXXXXXXX___XXXXXXXXX__
___XXXX_XXXXX__XXXXX______XXXX__XXXX_____XXXXXX_____XXXXX____XXXX__XXXX____XXXXXXX___
________XXXXX________________________________________________________________________
_XXXXXXXXXXXX________________________________________________________________________
_XXXXXXXXXXX_________________________________________________________________________
___XXXXXXX___________________________________________________________________________

Y como siempre digo, un poco de código

Código Delphi [-]
function StrToStr(Str: string): string;
var
  Bitmap: TBitmap;
  i,j: integer;
begin
  Result:= '';
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Canvas.Font.Name:= 'Arial Black';
    Bitmap.Canvas.Font.Size:= 16;
    Bitmap.Width:= Bitmap.Canvas.TextWidth(Str);
    Bitmap.Height:= Bitmap.Canvas.TextHeight(Str);
    Bitmap.Canvas.TextOut(0,0,Str);
    for j:= 0 to Bitmap.Height - 1 do
    begin
      for i:= 0 to Bitmap.Width - 1 do
        if Bitmap.Canvas.Pixels[i,j] = $FFFFFF then
          Result:= Result + '_'
        else
          Result:= Result + 'X';
      Result:= Result + #13#10;
    end;
  finally
    Bitmap.Free;
  end;
end;

[[egostar]]

Ahora si, muchas felicidades, acabas de romper la barrera de los tres digitos,

Espero algun día romper tambien esa barrera.

Código Delphi [-]
 
Procedure Muy_Breve;
begin
   //Muchas Felicidades.......
end;

[[gluglu]]

Alguien hizo trampa !! hace algunos minutos nuestro amigo Domingo tenía justo 999 mensajes, y me aguanté crear un hilo para felicitarle por los inminentes 1000 !!

Y ahora veo que Domingo ha contestado a vuestras felicitaciones y justo tiene 1000 !! Es decir, sus gracias han sido el mensaje 1000 !!

De cualquier manera

MUCHAS FELICIDADES por esos 1000, y que pronto logres alcanzar a Román !

Y como siempre MUCHAS GRACIAS por toda tu aportación al foro.

[dec]

Hola,

Qué chula función "StrToStr".

PD. Ejemplo de uso:

Código Delphi [-]
ShowMessage( StrToStr('ClubDelphi') );

[[seoane]]

Empezado por Casimiro Notevi

FELICIDADES


Aquí mi regalo.

Cual de las 2 me regalas, o vienen en el mismo paquete

[roman]

Empezado por dec

Qué chula función "StrToStr".

La verdad que sí, muy, muy ingenioso.

[marcoszorrilla]

Muchas felicidades Domingo y gracias por tus aportaciones.

Un Saludo.

[[Gunman]]

FELICIDADES SEOANE!!!!!!!!!!!!
Y como no, gracias por toda la ayuda que has prestado al club!

[[Bicho]]

Empezado por gluglu

Alguien hizo trampa !! hace algunos minutos nuestro amigo Domingo tenía justo 999 mensajes, y me aguanté crear un hilo para felicitarle por los inminentes 1000 !!

Y ahora veo que Domingo ha contestado a vuestras felicitaciones y justo tiene 1000 !! Es decir, sus gracias han sido el mensaje 1000 !!

Jeje, mira que yo también habia pensado hacer lo mismo que ha hecho David, en el mensaje 999 felicitarle y que él mismo contestaste con su mensaje 1000.

Empezado por dec

Qué chula función "StrToStr".

Opino lo mismo. Domingo no se desaprovecha un instante para aportar un trozo de código.
Ya has llegado a los mil. Tómate un descanso y después vuelta al ataque.

Muchísimas felicidades y 1000 gracias por esas 1000 aportaciones y 1000 pedazo de código.

Saludos

[Casimiro Notevi]

Empezado por seoane

Cual de las 2 me regalas, o vienen en el mismo paquete

je,je,je... está claro, amigo, tu regalo es la que tiene dos redondas xxxxxxxx y un gran yyyyyyy, además de unos zzzzzz para agarrarse

[Neftali [Germán.Estévez]]

¡¡¡Muchas Felicidades[size=4][color=Red] Seoane!!!
[size=2][color=Black]
Por los mensajes, por el código y por la calidad de ambos.

Por cierto, la misma función, pero para bitmaps (B/N), no funciona mal...

Código Delphi [-]
function BitmapToStr(ABitmap: TBitmap): string;
var
  i,j: integer;
begin
  Result:= '';

  for j:= 0 to ABitmap.Height - 1 do
  begin
    for i:= 0 to ABitmap.Width - 1 do
      if ABitmap.Canvas.Pixels[i,j] = $FFFFFF then
        Result:= Result + '_'
      else
        Result:= Result + 'X';
    Result:= Result + #13#10;
  end;
end;

Código Delphi [-]
____________________________________________________________________________
____________________________________________________________________________
______________________________________________________X_____________________
_____________________XXX_______________X____________XXXXX___________________
_____________________XXXX____________XXX___________XXXXXX___________________
___________________XXXXXX____________XXXXX_______XXX__XXX___________________
___________________XXX__XXX__________XX_XX_______XXX__XXX___________________
___________________XXX__XXX_________X___XX_______XX___XXX___________________
___________________XXX__XXX_________X__XXX_______XX___X_____________________
_____________________X______________XXX__________XX_XX______________________
_____________________XXX____________XXXX________XXXXXX______________________
______________________XXXXXX________XXXXXX______XXXXXX______________________
______________________XXXXXX________X___XX____XXX__XXX______________________
______________________XXX__XXX______X___XX____XXX__X________________________
______________________XXX__XXX______X___XX____XX___X________________________
______________________XXX___XX____XXX___XX____XX_XXX________________________
________________________X___XX____XXX___XX___XXXXXXXXXXXX___________________
_____________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX___________________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX______XX_____________
______________________XXXXXXXXXXXXXXXXXXXXXXXXXXX____________XXXXX__________
_____________XXX_______________________________________________XXXX_________
____________XXXX_______________________________________________XXXX_________
__________XXXXX_______________________________________XXX___XXXXXXX_________
__________XXX_________XXXXX_________XXXXXXXXX_______XXXXXX__XXXXXX__________
__________XXX______XXXXXXXX______XXXXXXXXXXXXXXXXXXXXXXXX____XXX____________
__________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_____________________
____________XXXXXXX_____XXXXXXXXXXXXX_____XXXXXXXXXX________________________
________________XX_______XXXXXXXXXXX_________________________XX_____________
________________XXX_________________________________________XXX_____________
________________XXXXXXXXX___________________________________X_______________
________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX____________XXX_______________
________________XXX_____XXXXXXXXXXXXX_____________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXXXXXXXXX______________________________XXX_______________
________________XXXXXXXXXXXXXXXXXXXXXXX___________________XXX_______________
________________XXXXX_____________________________________XXX_______________
________________XXXXX_____________________________________XXX_______________
_______________XXXXXXX______________________________________XXX_____________
_______________XXXXXXXXXXXXXXX________________XXXXXXXXX_____XXXX____________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_______XXX____________
____________XXX____________XXXXXXXXXXXXXXXXXXX_______________XXX____________
____________XXX______________________________________________XXX____________
____________XXX______________________________________________XXX____________
____________XXXXXXX___________________________________XXXXXX_XXX____________
____________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX________________
__________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX_____________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________
____________________________________________________________________________

[anghell77]

No pinto mucho.....jejeje porque me recuerdan los trabajos que alguna vez ví de mis hermanas con sus Olivetti's....
Pero Sinceras FELICIDADES!!!!

y sinceros agradecimientos por las aportaciones!!!

Venga una ronda, atrasada, como son mis felicitaciones casi siempre, pero bien recibida no?

{Saludos}

[Pascalizado]

Felicitaciones Seanoe por tus 1000 mensajes y gracias por tus aportes!!!