Problem polega na przekazaniu stringa z polskimi znakami do raportu rave.
Korzystam z funkcji:
function StreamToString(aStream: TStream): string;
var
SS: TStringStream;
begin
if aStream <> nil then
begin
SS := TStringStream.Create('');
try
SS.CopyFrom(aStream, 0);
// No need to position at 0 nor provide size
Result := SS.DataString;
finally
SS.Free;
end;
end
else
begin
Result := '';
end;
end;
Pod buttona mam przypięte:
RvProject1.SetParam('ParamOpis', (StreamToString(ms)));
zmienna ms pochodzi z richedita:
ms := TMemoryStream.Create;
RichEdit2.Lines.SaveToStream(ms) ;
ms.Seek(0, soFromBeginning) ;
RichEdit3.Lines.LoadFromStream(ms);
Zalezy mi na tym żeby przekazywać dane z richedita do rave z formatowaniem tekstu i to się dzieje bo w raporcie formatowanie pozostaje ale nie ma polskich znaków. Czy ktoś może pomóc bo walczę z tym już dość długo.
Próbowałem w tej funkcji przed Result := SS.DataString;
wstawić SS.Encoding.GetEncoding(1250);
ale nie pomaga.
Może ktoś podsunąć jakiś pomysł.
Delphi XE2.