¿Convertir BitMap a cadena sin saltos de línea?
En algún lugar encontré este código para convertir un BitMap en una cadena:
function Base64FromBitmap(Bitmap: TBitmap): string;
var
Input: TBytesStream;
Output: TStringStream;
begin
Input := TBytesStream.Create;
try
Bitmap.SaveToStream(Input);
Input.Position := 0;
Output := TStringStream.Create('', TEncoding.ASCII);
try
Soap.EncdDecd.EncodeStream(Input, Output);
Result := Output.DataString;
finally
Output.Free;
end;
finally
Input.Free;
end;
end;
Sin embargo, esto devuelve un bloque de líneas envueltas. ¿Es posible obtener una sola línea sin saltos de línea?