Ini файл

[Baaandit]

Необходимо хранить информацию из любого файла и сохранять в ini.Работает-только не записываются файлы свыше примерно 1.8 мбайт и выше-программа выдает ошибку. Возможно ли это как-то исправить?

[vasek123]

А исходник можно?

p.s. Насколько я знаю в ini- файлах можно сохранять пользовательские настройки(значения переменных или констант там уже не сохранишь...).

[Usov]

ini файл не предназначен для хранения файлов, может речь идет о хранении содержимого файлов? Если так то может проще разработать свою структуру контейнера для файлов или использовать файловые потоки.

[Baaandit]

Вот две процедуры основные.

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

 procedure TForm2.import;
 var
  ini: TIniFile;
  fs: TFileStream;
  s2:string;
begin
TRY
  if OpenDialog1.Execute then
                           begin
    fs := TFileStream.Create(OpenDialog1.FileName,fmOpenRead,fmShareDenyWrite);
    ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));

s2:=inttostr(ReadInforFILE(OpenDialog1.FileName).Size)+' áàéòa';
if  ((ReadInforFILE(OpenDialog1.FileName).Size)>1024)
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(OpenDialog1.FileName).Size/1024,-3))+' Êáàéò';
                                              end;
if  ((ReadInforFILE(OpenDialog1.FileName).Size)>sqr(1024))
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(OpenDialog1.FileName).Size/sqr(1024),-3))+' Ìáàéò';
                                              end;

    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'datainbaze',datetimetoStr(now));
    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'createdate',DateTimeToStr(ReadInforFILE(OpenDialog1.FileName).CreateDate));
    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'Size',s2);
    ini.WriteBinaryStream( ExtractFileName(OpenDialog1.FileName), 'data', fs );
    FreeAndNil(ini);
    FreeAndNil(fs);
    Load;
                            end;

Да речь идет о хранение содержимого файлов. Как можно реализовать эту структуру?

[Usov]

Пиши в файловые потоки самого ini файла, а в ini файле храни имена потоков. Такой вариант не совсем красивый так как работает только на NTFS и при записи файла в файловый пото не отображает реальный размер файла контейнера.

[vasek123]

Сообщение от Baaandit

Вот две процедуры основные.

procedure TForm2.lOAD;
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  ini.ReadSections( listbox1.Items );{а где переменная куда будут считываться данные? Обычно, данные читаются из ini- файла...}
  FreeAndNil(ini);
end;

 procedure TForm2.import;
 var
  ini: TIniFile;
  fs: TFileStream;
  s2:string;
begin
TRY
  if OpenDialog1.Execute then
                           begin
    fs := TFileStream.Create(OpenDialog1.FileName,fmOpenRead,fmShareDenyWrite);
    ini := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));{а почему только расширение файла}

s2:=inttostr(ReadInforFILE(OpenDialog1.FileName).Size)+' áàéòa';
if  ((ReadInforFILE(OpenDialog1.FileName).Size)>1024)
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(OpenDialog1.FileName).Size/1024,-3))+' Êáàéò';
                                              end;
if  ((ReadInforFILE(OpenDialog1.FileName).Size)>sqr(1024))
                                         then
                                              begin
                                              s2:=floattostr(roundto(ReadInforFILE(OpenDialog1.FileName).Size/sqr(1024),-3))+' Ìáàéò';
                                              end;

    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'datainbaze',datetimetoStr(now));
    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'createdate',DateTimeToStr(ReadInforFILE(OpenDialog1.FileName).CreateDate));
    ini.WriteString(ExtractFileName(OpenDialog1.FileName),'Size',s2);
    ini.WriteBinaryStream( ExtractFileName(OpenDialog1.FileName), 'data', fs );
    FreeAndNil(ini);
    FreeAndNil(fs);
    Load;
                            end;

В общем ошибок туча...

[Baaandit]

Вот ехе программы-посмотрите.

[Stilet]

информацию из любого файла и сохранять в ini

Предлагаю такой вариант:

var i:TIniFile;m:TFileStream;
begin
 i:=TIniFile.Create('c:\temp\q');
  if OpenDialog1.Execute then begin
   m:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
   i.WriteBinaryStream('all',ExtractFileName(OpenDialog1.FileName),m);
   m.Free;
  end;
 i.Free;
end;

[Baaandit]

Сообщение от Stilet

Предлагаю такой вариант:

var i:TIniFile;m:TFileStream;
begin
 i:=TIniFile.Create('c:\temp\q');
  if OpenDialog1.Execute then begin
   m:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
   i.WriteBinaryStream('all',ExtractFileName(OpenDialog1.FileName),m);
   m.Free;
  end;
 i.Free;
end;

Работает только с файлами не большого размера.С большими файлами выдает ошибку.