stream inifile

[dmitriegorovih]

как получить stream, переменной класса Tinifile? Или есть другие классы? заранее благодарин.

[Stilet]

А зачем? Если конечно не секрет. Что ты конкретно сделать хочешь?

[dmitriegorovih]

Я хочу за архивировать в один файл ini файл и картинки вот как я пробовал сделать собственный ini но както коряво

function Tform1.poisk(textpoiska,text:string):boolean;
var
s:string;
e,n:integer;
begin
if (text='') or (textpoiska='') then exit;
s:='';
e:=1;
n:=0;
for n:=1 to length(text) do begin
  if text[n]=textpoiska[e] then begin
  e:=e+1;
  s:=s+text[n];
  end;
if s=textpoiska then begin
result:=true;
exit;
end;
  end;
  result:=false;
end;

function Tform1.sobs_ini_format_read(inimemo:Tstringlist;Section,indent:string):string;
var
n,n2:integer;
s:string;
begin
for n:=0 to inimemo.Count-1 do begin
if poisk('['+Section+']',inimemo.Strings[n])=true then begin
n2:=n+1;
s:=inimemo.Strings[n+1];
while s[1]<>'[' do begin
s:=inimemo.Strings[n2];
if poisk(indent,inimemo.Strings[n2])=true then begin
result:=onposle(inimemo.Strings[n2],'=');
    end;
    inc(n2);
   end;
  end;
 end;
end;

function Tform1.sobs_ini_format_write(inimemo:Tstringlist;Section,indent,text:string):Tstringlist;
var
n,n2:integer;
s:string;
begin
for n:=0 to inimemo.Count-1 do begin
if poisk('['+Section+']',inimemo.Strings[n])=true then begin
n2:=n+1;
s:=inimemo.Strings[n+1];
while s[1]<>'[' do begin
s:=inimemo.Strings[n2];
if poisk(indent,inimemo.Strings[n2])=true then begin
inimemo.Strings[n2]:=indent+'='+text;
result:=inimemo;
exit;
    end;
 inc(n2);
   end;
  end;
 end;
 inimemo.Add('['+Section+']');
 inimemo.Add(indent+'='+text);
 result:=inimemo;
end;

function Tform1.sobs_ini_format_writeint(inimemo:Tstringlist;Section,indent:string;intte:integer):Tstringlist;
var
n,n2:integer;
s,text:string;
begin
text:=inttostr(intte);
for n:=0 to inimemo.Count-1 do begin
if poisk('['+Section+']',inimemo.Strings[n])=true then begin
n2:=n+1;
s:=inimemo.Strings[n+1];
while s[1]<>'[' do begin
s:=inimemo.Strings[n2];
if poisk(indent,inimemo.Strings[n2])=true then begin
inimemo.Strings[n2]:=indent+'='+text;
result:=inimemo;
exit;
    end;
    inc(n2);
   end;
  end;
 end;
 inimemo.Add('['+Section+']');
 inimemo.Add(indent+'='+text);
 result:=inimemo;
end;

[Stilet]

Так. дай ка проясню - ты хочешь запихнуть картинки потоком в ИНИ файл? Или заархивировать кучу картинок и ини файл в некий архив аки winRAR делает?

[dmitriegorovih]

Или заархивировать кучу картинок и ини файл в некий архив

Да, просто ini мне нужен как файлик где находяться координаты картинок на форме.

[Impuls1989]

А кто тебе мешает открыть ini как TFileStream?

[Stilet]

где находяться координаты картинок на форме.

Малоинформативная тема, но...
Предположим у тебя есть на форме куча Image. Тогда

var ini:TIniFile;i:integer;
begin
 ini:=TIniFile.Create('c:\temp\ini.ini');
 for i:=0 to ComponentCount-1 do
  if Components[i] is TImage then begin
    ini.WriteInteger(Components[i].Name,'x',TImage(Components[i]).Left);
    ini.WriteInteger(Components[i].Name,'y',TImage(Components[i]).Top);
  end;
ini:=nil;
end;

Это запись. Ну а считать соответственно методом Readinteger;

[dmitriegorovih]

Да это я сделал но нужен именно stream для того чтоб архивировать, или всё таки надо создавать Temp.ini файл?

[evg_m]

наследник Tinifile
и
ini.WriteImage('img',n, Tmage );
ini.readImage();

TImageIni=class(TIniFile)
public
procedure WriteImage(img: Timage);
procedure readImage(img: Timage);
end;

procedure TImageIni.WriteImage(img: Timage);
var
simage: string;
begin
self.writeinteger(img.name, 'left', img.left);
// и все что нужно
simage:=// преобразуем img в строку
//Tinifile это ТЕКСТОВЫЙ файл
self.writeStr(img.name, 'img',s);
end;

аналогично пишем ReadImage

[dmitriegorovih]

evg_m Мне нужно чучуть другое, мне нужен stream ini не создавая его на диске, но я так понял что это не возможно.