VPF::Как лучше сохранить 3-х мерний массив на Диске

Mersik

Дата 20.10.2007, 14:27 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

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

Как лучше сохранить 3-х мерний массив[ на Диске чтоби со временем можно било загрузитй его снова?

Код


var
Big_array:array[1..640000,1..30,1..9] of double;
begin
blockwrite(fff,Big_array,3200000);
end;

Letov

Дата 20.10.2007, 15:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Если файловая система NTFS, можно сохранить девять потоков с массивом [1..640000, 1..30], например, array.dat:1, array.dat:2 и т.д.

--------------------

Не бывает плохих языков программирования. Бывают плохие программисты...

Mersik

Дата 20.10.2007, 15:51 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

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

EvilsInterrupt

Дата 20.10.2007, 19:25 (ссылка)

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

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

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

Mersik, Чего-то какой-то маразм. В чем сложности сохранить кусок памяти? Дал указатель Windows.ReadFile и дал размер этой памяти и все, айда проверять записалось или нет! Чего сложного? Покажи код, где именно не получается и что выплевывает или как программа себя ведет?

--------------------

про реверсинг, вроде чтото даже интересно

aktuba

Дата 20.10.2007, 19:54 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Цитата(Letov @ 20.10.2007, 16:03

)

Если файловая система NTFS, можно сохранить девять потоков с массивом [1..640000, 1..30], например, array.dat:1, array.dat:2 и т.д.

Это-то зачем??? Фиксированный массив - сохраняй через TFileStream, File и т.д... Зачем что-то вообще разбивать?

--------------------

Mersik

Дата 22.10.2007, 15:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

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

Код


Function Save_Network_Structure (save_file_name:string):string;
var
    ii,jj,dd:integer;

    fff1:string;
    fff:file;
begin
K:=1;
     for  ii:=1 to input_neiro_q do
  begin
      for jj:=1 to neiro_q do
      begin
      temp_input_weight[ii,jj]:=input_weight[ii,jj,k];
      end;
  end;

for  ii:=1 to neiro_q do
  begin
    for jj:=1 to neiro_q do
      begin
        for dd:=1 to layer_q do
          begin
          temp_weight_hidden_layer[ii,jj,dd]:=weight_hidden_layer[ii,jj,dd,k];
          end;
      end;
  end;

for  ii:=1 to neiro_q do
  begin
  temp_autput_weight[ii]:=output_weight[ii,k];
  end;
                               //SIRAJA.neiro
  fff1:=save_path + datetoStr(now) +  '__'  + IntToStr(k)+ save_file_name;
assignfile(fff,fff1);
rewrite(fff,5129251);
blockwrite (fff,layer_q,1);
blockwrite (fff,neiro_q,1);
blockwrite (fff,input_neiro_q,1);
blockwrite(fff,temp_input_weight,5120000);
blockwrite(fff,temp_weight_hidden_layer,9216);
blockwrite(fff,temp_autput_weight,32);
closefile(fff);


result := 'SAVED in ' + fff1;
end;

Vidaet owibku EInOutError I/O error 998

Добавлено через 34 секунды
smile

aktuba

Дата 22.10.2007, 15:27 (ссылка)

(голосов:3)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Жуть... Чем тебе TFileStream не угодил???

--------------------

MetalFan

Дата 22.10.2007, 15:28 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Код


type
  T3dArray = array [0..maxX,0..maxY,0..maxZ] of TType;
var
  l3dArray: T3darray;
  lFileStream: TFileStream;
begin
...
  lFileStream.Write( l3dArray, SizeOf( T3dArray ));
...
  lFileStream.Read( l3dArray, SizeOf( T3dArray ));

--------------------

There are always someone smarter than you...

Mersik

Дата 26.11.2007, 15:47 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

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

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