| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с архивами

DArk_ELf ©   (2005-11-27 20:22:00) 

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

---

Palladin   (2005-11-28 19:32:00) [1]

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



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;


---

palva   (2005-11-28 09:34:00) [2]

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

---

Думкин   (2005-11-28 06:45:00) [3]

TMemoryStream etc.

---

Васяня   (2005-11-28 05:55:00) [4]

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

---

Германн   (2005-11-28 02:42:00) [5]

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

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

---

Fay   (2005-11-27 20:47:00) [6]

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

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

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

---

DArk_Elf   (2005-11-27 20:44:00) [7]

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

---

Fay   (2005-11-27 20:39:00) [8]

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

---

Наверх