Bild als String übertragen?

[turboPASCAL]

Och manno....

Delphi-Quellcode:

var
  strBitmap: string;

function BitmapToString(InputBmp: TBitmap; var outString: String): BOOL;
var
  ms: TMemoryStream;
begin
  Result := FALSE;
  outString := '';

  ms := TMemoryStream.Create;
  try
    ms.Position := 0;
    InputBmp.SaveToStream(ms);
    SetString(outString, PChar(ms.Memory), ms.Size);

    Result := TRUE;
  finally
    ms.Free;
  end;
end;

function BitmapFromString(OutputBmp: TBitmap; inString: String): BOOL;
var
  ms: TMemoryStream;
begin
  Result := FALSE;

  ms := TMemoryStream.Create;
  try
    ms.Position := 0;
    ms.WriteBuffer(inString[1], length(inString));
    ms.Position := 0;

    OutputBmp.LoadFromStream(ms);
    inString := '';

    Result := TRUE;
  finally
    ms.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BitmapToString(Image1.Picture.Bitmap, strBitmap);

  BitmapFromString(Image2.Picture.Bitmap, strBitmap);
  Self.Invalidate;
end;