Un Desafio, a ver si pueden...

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

No quiero hacer comentarios sobre lo leído anteriormente, ya que creo que se comenta sólo. Sólo recordar a los usuarios de éstos foros que desde su Panel de control (seccion Miscelania) poseen una opción llamada: "Amigo/Ignorar Lista" (en concreto la 2ª) que a mi me es muy útil en ocasiones como ésta.

P.D: A partir de que un usuario ha sido añadido a "Ignorar Lista", al leer sus mensajes te recuerda ésta caracteristica (útil para saber con quien vale la pena "perder el tiempo" y con quien no).

[hermes_32]

A propósito de la gente que entra al foro sólo a terminar de aclarar sus dudas, imponiendo en muchos casos como el actual que se les de la solución y no una orientación para que ellos mismos ingenien la solución (que pienso es la mejor manera de aprender), he de decir que no me extraña que Román fuese tan claro y diáfano en su primer mensaje. Yo estaría igual de disgustado.

Nadie debería cuestionar a una persona que día a día se molesta en perder su tiempo libre para intentar ayudar a los demás.

Algunos se sentirán identificados con mi firma.

Un saludo para todos aquellos que no pierden la ilusion porque los demás aprendan de sus conocimientos. Para el resto no dedico nada.

[hermes_32]

Por cierto, no ha sido muy dificil encontrar una solucion a lo que se preguntaba al principio del post.

BMP a JPG

Código Delphi [-]
procedure TForm1.BMPtoJPG(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(FileName);
    jpeg := TJPEGImage.Create;
    try
      jpeg.Assign(bmp);
      jpeg.SaveTofile(ChangeFileExt(FileName, '.jpg'));
    finally
      jpeg.Free
    end;
  finally
    bmp.Free
  end;
end;

JPG a BMP

Código Delphi [-]
procedure tform1.JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

[ctronx]

Si de algo sirve mi humilde opinión, que se haga lo se se tenga que hacer, por el bien de la cordial convivencia que siempre a habido en estos foros, fuera lo malo que se quede lo bueno.
Y no hay que darle mas importancia de la que merece ya que recuerden que una golondrina no hace verano.

Suerte a todos.

[fidel]

Ante sujetos de la calaña del tal P.M. lo mejor es la ignorancia, el mismo se ha descalificado suficientemente y se ha dado de baja.

Saludos al resto del foro.

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

Puesto que el tema sobre el que inicialmente trataba el hilo está solventado (expresado por la propia persona que lo inició):
http://www.clubdelphi.com/foros/show...0&postcount=19

Y visto que éste hilo sólo sirve, a partir de ese momento, para un determinado elemento falte al respeto al resto de usuarios de éste foro, y no aporta nada nuevo, queda cerrado.