base64 to file

[Лубышев]

проблема. у меня есть строка в виде base64 из этого надо сделать файл.
по сути это картинка (но не факт)

че я делаю:

uses EncdDecd;
...
var st,st2:TMemoryStream;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
st.WriteBuffer(Pointer(edit1.Text)^, Length(edit1.Text)); //загоняю строку в стрим
DecodeStream(st,st2); //перекодировка из base64
st2.SaveToFile('image.jpg');

файл получается размером 0 байт. то есть во второй стрим ни че не записалось почему то... странно а если строку загружаю из файла то работает:

var st,st2:TMemoryStream;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
st.LoadFromFile('image.txt');
DecodeStream(st,st2); //перекодировка из base64
st2.SaveToFile('image.jpg');

че я делаю не так?

[Пепел Феникса]

var st,st2:TMemoryStream;
s:string;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
s=edit1.text;
st.WriteBuffer(s[1],Length(s)*SizeOf(Char)); //загоняю строку в стрим
DecodeStream(st,st2); //перекодировка из base64
st2.SaveToFile('image.jpg');

не надо делать указатель из чего попало.

[Лубышев]

в первом случае st не пуст это точно. так как если сделать так st.SaveToFile('img.txt'); то полученный файл будет содержать строку base64

[Пепел Феникса]

я немного исправил, попробуйте.
а насчет в файл, то один кривой байт мог все испортить, причем в тексте могло выглядить и нормально.

[Лубышев]

st.WriteBuffer(s[0],Length(s)*SizeOf(Char)); //загоняю строку в стрим

косяк... че то не так... первый аргумент не подходит

я не очень соображаю в потоках

решил на бум исправить
st.WriteBuffer(s,Length(s)*SizeOf(C har));
не работает но компилится

[Пепел Феникса]

s[1] там надо, я ж поправил.

кстати а почему б TStringStream не взять?

[Лубышев]

я заметил тока все равно размер полученного файла 0

[Лубышев]

Сообщение от Пепел Феникса

s[1] там надо, я ж поправил.

кстати а почему б TStringStream не взять?

а не знаю как умею так и делаю лишь бы заработало

[GunSmoker]

Вроде нет re-Position.

[Пепел Феникса]

блин, ну точно
st.Position:=0;
после записи то надо делать.(LoadFromFile это делает)