Чтение с INI файла.

[Baaandit]

Необходимо реализовать что-то типо хранилища данных из файлов. Хранилищем является ini файл. Если записываешь в ini тестовый файл и считывешь все нормально. Если картинку то считывется как-то не так.В ini данные записываются в виде шестнадцатиричных символов. Слышал что надо считать их и преобразовать в двоичные данные а потом записывать. Как это можно реализовать?
Вот три процедуры одна вспомогательная, другие чтение и запись и ini файл.

procedure TForm2.lOAD;
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  ini.ReadSections( listbox1.Items );
  FreeAndNil(ini);
end;

 procedure TForm2.import(ss:string;var t:boolean);
 var
  ini: TIniFile;
  fs: TFileStream;
  s2:string;
begin
TRY
 
 t:=true;
    fs := TFileStream.Create(ss,fmOpenRead);
    ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));

s2:=inttostr(ReadInforFILE(ss).Size)+' байт';
if  ((ReadInforFILE(ss).Size)>1024)
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(ss).Size/1024,-3))+' кбайт';
                                              end;
if  ((ReadInforFILE(ss).Size)>sqr(1024))
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(ss).Size/sqr(1024),-3))+' мбайт';
                                              end;
    ini.WriteBinaryStream( ExtractFileName(ss), 'data', fs );
    ini.WriteString(ExtractFileName(ss),'datainbaze',datetimetoStr(now));
    ini.WriteString(ExtractFileName(ss),'createdate',DateTimeToStr(ReadInforFILE(ss).CreateDate));
    ini.WriteString(ExtractFileName(ss),'Size',s2);
    FreeAndNil(ini);
    FreeAndNil(fs);
    Load;


except t:=false; MessageDlg('ошибка',mtError,[mbok], 0);EXIT;
end;
end;

procedure TForm2.saveto;
var
  ini: TIniFile;
  fs: TFileStream;
  s1:string;
begin
  if ListBox1.ItemIndex >= 0 then begin
  savedialog1.filter:='*'+copy(listbox1.Items[listbox1.ItemIndex],pos('.',listbox1.Items[listbox1.ItemIndex]),(length(listbox1.Items[listbox1.ItemIndex])-pos('.',listbox1.Items[listbox1.ItemIndex])+1))+'|*'+copy(listbox1.Items[listbox1.ItemIndex],pos('.',listbox1.Items[listbox1.ItemIndex]),(length(listbox1.Items[listbox1.ItemIndex])-pos('.',listbox1.Items[listbox1.ItemIndex])+1))+'|òåêñòîâûå (*.txt)|*.txt';
  savedialog1.FileName:=listbox1.Items[listbox1.ItemIndex];
   if  savedialog1.FilterIndex=1 then  begin
   savedialog1.DefaultExt:='txt';
    s1:=listbox1.Items[listbox1.ItemIndex];
    s1:=copy(s1,1,pos('.',s1)-1);
     savedialog1.FileName:=s1;
     end
     else
       savedialog1.DefaultExt:='';
    if SaveDialog1.Execute then begin
      fs := TFileStream.Create(SaveDialog1.FileName,fmCreate);
      ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
      ini.ReadBinaryStream( ListBox1.Items[ListBox1.ItemIndex], 'data', fs );
      FreeAndNil(ini);
      FreeAndNil(fs);
    end;
  end
  else begin showmessage('Выберете файл);listbox1.SetFocus;end;
end;

[BARNEY]

а вы про базы данных что нибудь слышали?

Или это принципиально в ini засунуть? рядом не как?

[Baaandit]

Слышал чуть чуть-надо в ini обязательно.

[mihali4]

Сколько можно?
Когда начнете поиском пользоваться?
Внизу - уйма подобных тем.
Закрыто.