сохранность данных, кто как?

← →
AV © (2012-04-04 13:29) [0]

С месяца 3-4 назад винт сдох.
Бэкап (еженедельный, по ночам) не сработал последний раз, т.е. потеря 2х недель получилась..

Из всех данных (тексты, коды, чужие программки, которые изучал ) с винта осталось только то, что сам себе отправил на почту, что бы дома дописать/проверить..

С тех пор активно переписываюсь сам с собой :)
Парадокс некий - хранится долго то, что может быть легко взято кем угодно (взломав мыло)

А как Вы храните нужное?

← →
Ega23 © (2012-04-04 13:38) [1]

> А как Вы храните нужное?

В SVN.

← →
KSergey © (2012-04-04 13:39) [2]

дома по всем 3 компам фотки раскидываю.
остальное - как получится.

← →
KSergey © (2012-04-04 13:39) [3]

а, эта, остальное - отдаю заказчикам вместе с исходниками, говорю "храните"

← →
RWolf © (2012-04-04 13:48) [4]

Dropbox.

← →
stas © (2012-04-04 13:53) [5]

Небольшого объема информация так же - на почте. А вот с фотками - проблема, уж очень много места они занимают...
Как-то списывал на DVD.

← →
картман © (2012-04-04 13:56) [6]

запоминаю

← →
xayam © (2012-04-04 13:58) [7]

> запоминаю

каждый бит?

← →
картман © (2012-04-04 14:01) [8]

> xayam © (04.04.12 13:58) [7]

само-собой

← →
xayam © (2012-04-04 14:07) [9]

> само-собой

понятно, иначе с потерями алгоритм :)

← →
картман © (2012-04-04 14:10) [10]

> иначе с потерями алгоритм :)

я б сказал, наоборот с дополнениями

← →
xayam © (2012-04-04 14:19) [11]

> наоборот с дополнениями

а у Вас бывает такое, что дополнения к <чему-то>,
важнее того, что они дополняют, настолько,
что нет особого смысла запоминать дополняемое?

PS По-другому, есть какой-то фильтр?

← →
Anatoly Podgoretsky © (2012-04-04 14:25) [12]

> картман (04.04.2012 13:56:06) [6]

На память

← →
Pavia © (2012-04-04 14:37) [13]

Обычно после поломки винт живет ещё пару дней успеваю купить новый в два раза больше и перекопировать данные. А так важные данные скопированы по разным компьютерам.

По поводу фоток потерпите ещё лет 8. Размер фоток растёт линейно жёстких экспоненциально скоро перегонит.
Правда потом будет проблема куда девать фильмы, а после куда девать голограммы.

← →
TUser © (2012-04-04 15:01) [14]

Дома - raid 1, но пришел к выводу, что он создает проблем больше, чем решает (на дешевых карточках массив часто распадается, это потеря суток минимум). + иногда бекапы.

На работе раз в три часа cp -u нужных файл в бекап, планирую заменить чем-нибудь более совершенным. + еженедельные бекапы хранятся на отдельном винте + на двух других компах еще.

← →
CRLF (2012-04-04 15:17) [15]

+1... рейд дома -- больше геморроя, чем пользы.

← →
Anatoly Podgoretsky © (2012-04-04 15:29) [16]

> TUser (04.04.2012 15:01:14) [14]

Распадается, но работать продолжает, а вот востановления раида обычно
канчается крахом.
Я заменил раид клоном диска.

А потом вообще на клон установил W7 и сохранил образ на сети, очень длительная операция, мне 600 гиг надо было съобразить

> А как Вы храните нужное?

Нужное сохраняется сразу после изменений в нескольких местах, ненужное бекапится раз в неделю-две на внешний диск.

> как Вы храните нужное?

SVN on SAN
robocopy to RAID at home
TrueCrypt of essential data

дома рейд1 с двумя зеркалами, бекап на МО в двух экземплярах (фотки, конечно, не все влезают :) ).
На работе на обычном винте на компе и сетевом диске (сервер).

Бэкап надо проверять.
У меня средствами семерки бэкапится, она и предупреждает, если по какой то причине не получилось.
Фотки в пикассе хранятся - 80 Гб за 20 долларов на год. Только плохо, что в пикассу raw фотки не грузятся, надо что то придумать (не на gmail же себе отправлять), DropBox дорого получается...

больно круто у вас..
мне бы просто 2-3 папки держать актуальными
думал написать программку, которая бы по факту изменения новый файл копировала куда-то. Накидал класс

unit uFileNotify;
interface
uses
Classes, Windows;
type
PFileNotifyInformation = ^TFileNotifyInformation;
TFileNotifyInformation = record
NextEntryOffset : DWORD;
Action : DWORD;
FileNameLength : DWORD;
FileName : array[0..0] of WideChar;
end;
type
TFindFileNotify = class(TThread)
private { Private declarations }
FHWND: THandle;
FMsg: THandle;
FIdent: THandle;
FMyDir: string;
FAndSubFolder: Boolean;
procedure SetHWND(const Value: THandle);
procedure SetMsg(const Value: THandle);
procedure SetIdent(const Value: THandle);
procedure SetMyDir(const Value: string);
procedure SetAndSubFolder(const Value: Boolean);
protected
procedure Execute; override;
public
property HWND:THandle read FHWND write SetHWND;
property Msg:THandle read FMsg write SetMsg;
property Ident:THandle read FIdent write SetIdent;
property MyDir:string read FMyDir write SetMyDir;
property AndSubFolder:Boolean read FAndSubFolder write SetAndSubFolder;
end;
implementation
{ TFindFileNotify }
procedure TFindFileNotify.Execute;
const
BUF_SIZE = 2048;
var
hDir : THandle;
lpBuf : Pointer;
Ptr : Pointer;
cbReturn : Cardinal;
FileName : PWideChar;
S: string;
begin
hDir := CreateFile (PAnsiChar(FMyDir),
GENERIC_READ,
FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
nil,
OPEN_EXISTING,
FILE_FLAG_BACKUP_SEMANTICS,
0);
if hDir = INVALID_HANDLE_VALUE then
begin
S := "hDir = INVALID_HANDLE_VALUE";
if HWND <> 0 then
SendMessage(HWND, Msg, Ident, LPARAM(PChar(s)));
exit;
end;
GetMem(lpBuf, BUF_SIZE);
repeat
ZeroMemory(lpBuf, BUF_SIZE);
if not ReadDirectoryChangesW(hDir,
lpBuf,
BUF_SIZE,
FAndSubFolder, // true c подкаталогами
FILE_NOTIFY_CHANGE_FILE_NAME,
@cbReturn,
nil,
nil) then
Break;
Ptr := lpBuf;
repeat
S := "";
GetMem(FileName, PFileNotifyInformation(Ptr).FileNameLength + 2);
ZeroMemory(FileName, PFileNotifyInformation(Ptr).FileNameLength+2);
lstrcpynW(FileName,
PFileNotifyInformation(Ptr).FileName,
PFileNotifyInformation(Ptr).FileNameLength div 2 + 1);
S := MyDir + FileName;
FreeMem(FileName);
case PFileNotifyInformation(Ptr).Action of
FILE_ACTION_ADDED : S := "[Создан]" + S;
FILE_ACTION_REMOVED : S := "[Удален]" + S;
FILE_ACTION_MODIFIED : S := "[Изменен]" + S;
FILE_ACTION_RENAMED_OLD_NAME : S := "[ДоПереименован]" + S;
FILE_ACTION_RENAMED_NEW_NAME : S := "[ПослеПереименован]" + S;
else S := "[Непонятно]" + S;
end;
if S <> "" then
begin
if (HWND <> 0) and not(Terminated) then
SendMessage(HWND, Msg, Ident, LPARAM(PChar(S)));
S := "";
end;
if PFileNotifyInformation(Ptr).NextEntryOffset = 0 then
Break else
Inc(Cardinal(Ptr),PFileNotifyInformation(Ptr).NextEntryOffset);
until Terminated;
until Terminated;
FreeMem(lpBuf);
end;

procedure TFindFileNotify.SetAndSubFolder(const Value: Boolean);
begin
FAndSubFolder := Value;
end;

procedure TFindFileNotify.SetHWND(const Value: THandle);
begin
FHWND := Value;
end;

procedure TFindFileNotify.SetIdent(const Value: THandle);
begin
FIdent := Value;
end;

procedure TFindFileNotify.SetMsg(const Value: THandle);
begin
FMsg := Value;
end;

procedure TFindFileNotify.SetMyDir(const Value: string);
begin
FMyDir := Value;
end;
end.
=====================
потом так
и ловим кто создан/удален или изменен
FFN := TFindFileNotify.Create(True);
FFN.FreeOnTerminate := True;
FFN.HWND := Self.Handle;
FFN.Msg := WM_USER;
FFN.Ident := 1;
FFN.MyDir := edt1.Text;
if cbAndSubFolder.Checked then
FFN.AndSubFolder := True else
FFN.AndSubFolder := False;
FFN.Resume;
========
НО!
почему то изменения не отлавливаются.
Почему?

сохранность данных, кто как? Найти похожие ветки