[ChinYan]

Пытаюсь записать jpg файл в ini:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
MS:TMemoryStream;
I:TIniFile;
begin
if OpenPictureDialog1.Execute then
begin

 I:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'A.ini');
 MS:=TMemoryStream.Create;

 Ms.LoadFromFile(Form1.OpenPictureDialog1.FileName);
 I.WriteBinaryStream('Main','a',MS);

 I.Free;
 MS.Free
end;

end;

Я проверял, все сохраняется.

Потом я хочу извлечь из ini:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
MS:TMemoryStream;
I:TIniFile;
begin
 I:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'A.ini');
 MS:=TMemoryStream.Create;

 I.ReadBinaryStream('Main','a',MS);
 MS.SaveToFile(ExtractFilePath(Application.ExeName)+'A.jpg');

 I.Free;
 MS.Free

end;

Но файл извлекается не полностью: весь серый, а только в левом верхнем углу что-то намекающее не картинку.


Кто-нибудь пытался сделать что-то вроде этого?