Скачать: CL | DM;

работа с архивами   Найти похожие ветки 

← →
DArk_ELf   (2005-11-27 20:22) [0]

Народ...как объединить несколько файлов в одини по ходу работы проги грузить в оперативку???

---

← →
Fay ©   (2005-11-27 20:39) [1]

2 DArk_ELf   (27.11.05 20:22)
А точно их надо "объединить" перед "грузить в оперативку" ?

---

← →
DArk_Elf   (2005-11-27 20:44) [2]

да...просто с файлами ща тренирую работу..перед........а по ходу работы программы доставать нужные и использовать!

---

← →
Fay ©   (2005-11-27 20:47) [3]

2 DArk_Elf   (27.11.05 20:44) [2]
> да...
Это понятное слово

> просто с файлами ща тренирую работу..перед........
Что "перед" ?

> а по ходу работы программы доставать нужные и использовать
ОТКУДА и ЧТО "доставать" ?

---

← →
Германн ©   (2005-11-28 02:42) [4]

2DArk_Elf   (27.11.05 20:44) [2]
>просто с файлами ща тренирую работу..

Тренируйся на..., кошках. © Э.Рязанов, Э.Брагинский. "Операция "Ы" и другие приключения Шурика"

---

← →
Васяня   (2005-11-28 05:55) [5]

DArk_ELf, Парадокс природы (Ельф-негр), ты четко скажи что ты пытаешся сделать? Какова задача... а то твой лепет похож на реч Черномырдина, а как извество его понимает только он сам ;)

---

← →
Думкин ©   (2005-11-28 06:45) [6]

TMemoryStream etc.

---

← →
palva ©   (2005-11-28 09:34) [7]

> а то твой лепет похож на реч Черномырдина
Васянь, не трогай шурина (почти Высоцкий)
Его речь всем понятна сходу, только вот не поддается парсингу, ибо не контекстно-свободна.

---

← →
Palladin ©   (2005-11-28 19:32) [8]

> ...как объединить несколько файлов в одини по ходу работы
> проги



Procedure JoinFiles(Const p_strBigFileName:String;Const p_astrFilesNames:Array of String);
Var
i:Integer;
theBigFile,
theCurrentFile:TFileStream;
Begin
theBigFile:=TFileStream.Create(p_strBigFileName,fmCreate+fmShareDenyRead);
Try
 For i:=0 to High(p_astrFilesNames) Do
  If FileExists(p_astrFilesNames[i]) Then
   Begin
    theCurrentFile:=TFileStream.Create(p_astrFilesNames[i],fmOpenRead+fmShareDenyWrite);
    Try
     theBigFile.CopyFrom(theCurrentFile,0);
    Finally
     theCurrentFile.Free;
    End;
   End;
Finally
 theBigFile.Free;
End;
End;



> по ходу работы проги грузить в оперативку


Function LoadBigFile(Const p_strBigFileName:String):TMemoryStream;
Begin
If FileExists(p_strBigFileName) Then
 Begin
  Result:=TMemoryStream.Create;
  Result.CopyFrom(TFileStream.Create(p_strBigFileName,fmOpenRead+fmShareDenyWrite),0);
 End;
End;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c