[Davidcfres]

Hola,

Es muy simple con GDI+ :

Código Delphi [-]
procedure TForm1.Test1;
var
  Image: TGPImage;
  encoderClsid: TGUID;
  strMimeType : string;
begin
  Image:= TGPImage.Create('Apple.GIF');
  strMimeType := 'image/jpeg';
  GetEncoderClsid(strMimeType, encoderCLSID);
  Image.Save('test.jpg', encoderClsid);
  Image.free;
end;

puedes cargar la imagen desde la cadena con un MemoryStream

Código Delphi [-]
var
  MyStream : TMemoryStream;

...

  MyStream := TMemoryStream.Create;
  MyStream.Read( MyStrCadena, length(MyStrCadena) );
  Image.FromStream( MyStream );
  MyStream.Free;

con respecto al formataje de las cadenas en Delphi,
se puede que debes adaptar el MyStream.read

Código Delphi [-]
MyStream.Read( MyStrCadena{ o MyStrCadena+1 (AnsiChar)}, length(MyStrCadena) );

lo seguro, con un Array of char no tendras ningun problema.

algo Asi :

Código Delphi [-]
MyArray : Array [0..] of char;
MyStr : string;

...

FillChar( MyArray, length(MyArray),0);
CopyMemory(@MyArray[0], @MyStr[1], length(MyStr) );
...
MyStream.Read( @MyArray[0], length(MyArray));

David
Davidcfres at hotmail.fr

Je sais, je suis français, mais personne n'est parfait.