Помогите с TJpegimage and TMemoryStream

[tatosha]

1. Записал картинку в ini-файл
2. Считать не могу. HELP ME! Выдает ошибку(#51 которая на фото)

procedure TForm1.INI_open;
var
  Ini : TIniFile;
  ms : TMemoryStream;
  jp:TJpegImage;
begin

  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  try
    ms := TMemoryStream.Create;
     jp:=TJpegImage.Create;
    try
      Ini.ReadBinaryStream('General', 'Picture', ms);
      ms.Position := 0;
      jp.LoadFromStream(ms);
     Image1.Picture.Assign(jp);
    finally
      jp.Free;
      ms.Free;

    end;
  finally
    Ini.Free;
  end;
end;


procedure TForm1.INI_close;
var
 Ini:TiniFile;
 ms:TMemoryStream;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
try
    ms:=Tmemorystream.Create;
    try
      Image1.Picture.Graphic.SaveToStream(ms);
      ms.Position := 0;
      Ini.WriteBinaryStream('General', 'Picture', ms);
    finally
      ms.Free;
    end;
  finally
    Ini.Free;
  end;
end;

[Stilet]

Image1.Picture.Graphic.SaveToStream (ms);

А ты уверен что в стрим идет JPEG а не его развернутый битмап?
Я бы на твоем месте:
1) Засомневался и сначала из Image1.Picture высаживал в JpegImage, а потом его уже сохранял
2) Засомневался и при считывании из ИНИ сначала считывал бы в TBitmap, а уже потом ассигнировал его в Jpeg.
3) Не хранил бы в ИНИ файле картинки!!!!!!!
4) Не хранил бы в ИНИ файле картинки!!!!!!!
5) Не хранил бы в ИНИ файле картинки!!!!!!!
6) Не хранил бы в ИНИ файле картинки!!!!!!!
7) Не хранил бы в ИНИ файле картинки!!!!!!!
8) Не хранил бы в ИНИ файле картинки!!!!!!!
9) Не хранил бы в ИНИ файле картинки!!!!!!!

[tatosha]

Не хранил бы в ИНИ файле картинки!!!!!!!,

а где их хранить посоветуете?

[SQLPowerUser]

Можно хранить в .ini двоичные данные, но в формате строки Base64.
Фрагмент из работающего шаблона

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  fs: TFileStream;
  sStream: TStringStream;
begin
  if not OpenDialog1.Execute then Exit;

  fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  sStream := TStringStream.Create('');
  try
    fs.Position := 0;
    sStream.CopyFrom(fs,fs.Size);
    sStream.Position := 0;
    Memo1.Text := EncodeString(sStream.DataString);
  finally
    sStream.Free;
    fs.Free;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  Ss: TStringStream;
begin
  if not OpenDialog1.Execute then exit;

  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  Ss := TStringStream.Create('');
  try
    Image1.Picture.Bitmap.SaveToStream(Ss);
    Ss.Position := 0;
    Memo1.Text := EncodeString(Ss.ReadString(Ss.Size));
  finally
    FreeAndNil(Ss);
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
  Ss : TStringStream;
begin
  Ss := TStringStream.Create(DecodeString(Memo1.Text));
  try
    Image2.Picture.Bitmap.LoadFromStream(Ss);
  finally
    FreeAndNil(Ss);
  end;
end;

[Stilet]

где их хранить посоветуете?

В отдельном каталоге. А в ИНИ относительный путь.