Преобразовать BitMap в строку без разрывов строки?
Где-то я нашел этот код для преобразования BitMap в строку:
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;
Тем не менее, это возвращает блок обернутых строк. Можно ли получить одну строку без разрывов строки?