VPF::read from multiple Files - Форум программистов

randy

Дата 26.3.2009, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 28.4.2008

Репутация: нет
Всего: 1

I did this but it doesn't give me the result i'm looking for ( i want to load many files into the Stream ).

The Code is use to Load many Files into the TMemoryStream

Код



Procedure Load(const AFilename: String);
var
  MS : TMemoryStream;
  FS : TFileStream;
  MyStringList:TStringList;
  i:integer;
begin
   MS := TMemoryStream.Create;
   MyStringList:=TStringList.Create;
   MyStringList.Add(AFilename);
try
  For i:=0 to MyStringList.Count-1 do
    if FileExists(MyStringList[i]) then
    begin
      FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone);
      try
        MS.CopyFrom(FS, FS.Size);
      finally
        FS.Free;

      end;
    end;

finally
// All the MS contents will be saved to Res.txt as an example 
  MS.SaveToFile('Res.txt');
  MS.Free;
end;
end;

Код



// as an example how to use it 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
{FilesList : is a TListBox
items[0]:=c:\001.txt
items[1]:=c:\002.txt
.
.
.
}

for i:=0 to FilesList.Items.Count-1 do
Load(FilesList.Items[i]);
end;

Is there any error or mistake with the Function above

Many thanks

kami

Дата 26.3.2009, 01:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Код


Procedure Load(const AFilename: String);
var
  MS : TMemoryStream;
  FS : TFileStream;
  MyStringList:TStringList;
  i:integer;
begin
   MS := TMemoryStream.Create;
   MyStringList:=TStringList.Create; // memory leak. Where MyStringList.Free ???
   MyStringList.Add(AFilename); // FIRST and single element
try
  For i:=0 to MyStringList.Count-1 do // MyStringList.Count=1 always in this procedure.
    if FileExists(MyStringList[i]) then
    begin
      FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone);
      try
        MS.CopyFrom(FS, FS.Size);
      finally
        FS.Free;
      end;
    end;
finally
  MS.SaveToFile('Res.txt');
  MS.Free;
// forgot about MyStringList
end;
end;

Changing:

Код


Procedure Load(const FileNames: TStrings);
var
  MS : TMemoryStream;
  FS : TFileStream;
  i:integer;
begin
  MS := TMemoryStream.Create;
  try
    For i:=0 to FileNames.Count-1 do
      if FileExists(FileNames[i]) then
        begin
          FS := TFileStream.Create(FileNames[i], fmOpenRead or fmShareDenyNone);
          try
            MS.CopyFrom(FS, 0);
          finally
            FS.Free;
          end;
       end;
  finally
    MS.SaveToFile('Res.txt');
    MS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Load(FilesList.Items);
end;

P.S. ффууух, ну и тяжело же у меня с английским smile

randy

Дата 26.3.2009, 01:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 28.4.2008

Репутация: нет
Всего: 1

Thank you kami but i will use this into a DLL file so i will use

Procedure Load(const AFilename: PChar);

instead of

Procedure Load(const AFilename: String);

when exporting the Procedure

kami

Дата 26.3.2009, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(randy @ 26.3.2009, 01:36

)

i will use this into a DLL

ok.

in dll:

Код


var
  MS:TMemoryStream;

procedure AddTo(const AFilename: PChar); // stdcall?
var
  FS : TFileStream;
begin
  // without try..except, for simple code.
  if not Assigned(MS) then
    MS:=TMemoryStream.Create;
  if FileExists(AFileName) then
    begin
      FS:=TFileStream.Create(aFileName, ...);
      MS.CopyFrom(FS, 0);
      FS.Free;
    end;
end;

procedure FinalizeAdding;
begin
  MS.SaveToFile(...);
  MS.Free;
  MS:=nil;
end;

in application:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to FilesList.Items.Count-1 do
    AddTo(FilesList.Items[i]); // possibly wrong (typecast string and PChar).
  FinalizeAdding;
end;

as variant:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  p:PChar;
begin
  for i:=0 to FilesList.Items.Count-1 do
    begin
      p:=AllocMem(Length(FilesList.Items[i])+1);// for 0-terminating
      Move(FilesList.Items[i][1], p^, Length(FilesList.Items[i])); // exception if FilesList.Items[i]=''
      AddTo(p);
      FreeMem(p);
    end;
  FinalizeAdding;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »