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;

[dec]

Hola,

Qué chula función "StrToStr".

PD. Ejemplo de uso:

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

[[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.

[[seoane]]

Empezado por Casimiro Notevi

FELICIDADES


Aquí mi regalo.

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

[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!!!