Создание DAT файла....

[Человек_Борща]

Привет всем!
Интересует насущьная проблема создания DAT файла.. со структурой..

хотелось бы узнать у вас как их создовать.
FileStream или MemoryStream?
Read или ReadBuffer?

желательно рабочим примером..

я в тупике=)

вот что есть у меня:

type
  TDatSettings = record
  URLLogo:string;          //данные ссылки лого
  URLRepository:string;    //данные ссылки репозитория
  URLFilesList:string;     //данные ссылки файл-листа
  HashType:Integer;        //данные о типе хеша
  AdmPassKeys:string;      //данные о доступе в админку
  URLUpdateSelf:string;    //данные ссылки на самоапдейт
  end;

procedure SaveToDAT(DatFile:string);
procedure LoadFromDAT(DatFile:String);

var
  my:string;


implementation

uses MainUnit;

//////Читаем структуру ДАТ файлов...
procedure SaveToDAT(DatFile:string);
var
  Data:TDatSettings;
  FS:TFileStream;
begin
  my:=ExtractFilePath(ParamStr(0));
  //записываем в структуру...
Fs:=TFileStream.Create(my+DatFile,fmCreate); //создаём файл DAT
Data.URLLogo:=MainForm.LogoEdit.Text;
Data.URLRepository:=MainForm.FilesRepositoryEdit.Text;
Data.URLFilesList:=MainForm.FilesListEdit.Text;
Data.HashType:=MainForm.HashTypeGr.ItemIndex;
Data.AdmPassKeys:=MainForm.SecretPassEdit.Text;
Data.URLUpdateSelf:=MainForm.SelfUpdatesEdit.Text;
FS.WriteBuffer(data,SizeOf(Data));    //пишем структуру в файл
FS.Free;
end;

procedure LoadFromDAT(DatFile:String);
var
  Data:TDatSettings;
  FS:TFileStream;
begin
  my:=ExtractFilePath(ParamStr(0));
  if FileExists(my+DatFile) then
  begin
  FS:=TFileStream.Create(my+DatFile,fmOpenRead);
  FS.ReadBuffer(Data,SizeOf(Data));
  //читаем структуру...
MainForm.LogoEdit.Text:=Data.URLLogo;
MainForm.FilesRepositoryEdit.Text:=Data.URLRepository;
MainForm.FilesListEdit.Text:=Data.URLFilesList;
MainForm.HashTypeGr.ItemIndex:=Data.HashType;
MainForm.SecretPassEdit.Text:=Data.AdmPassKeys;
MainForm.SelfUpdatesEdit.Text:=Data.URLUpdateSelf;
FS.Free; //удаляемся
  end else
  MessageBox(0,'Файл настроек отсутствует! Будут загружены стандартные настройки','Ошибка!',MB_OK or MB_ICONERROR);
  //Сообщаем пользоватлю что файл не найден!
end;

хетелось бы узнать правельно ли я записываю данные в структуру?

просто где бы я в проекте не пихнул процедуру чтения в OnCreate, при старте программы везде AV(Acces Violation)...

убрал с проекта форму, сделал панель на гл. форме, и всеравно AV.

Может DAT не так создан?

[Пепел Феникса]

извините, но вы знаете что такое string?

[raxp]

размер данных в пакете не определен для составляющих, кроме одного integer... сделайте так (старый dat файл удалите) :

type
  TDatSettings = record
  URLLogo:string[10];          //или  array [0..255] of Char
  URLRepository:string[10];
  URLFilesList:string[10]; 
  HashType:Integer;    
  AdmPassKeys:string[10];   
  URLUpdateSelf:string[10];  
  end;

[Человек_Борща]

String - строка..

raxp!
спасибо! Всё стало на свои места! буду теперь знать что надо ограничивать данные..

[Пепел Феникса]

String - строка..

я не про это. а про то что оно из себя представляет.
а представляет оно указатель на строку. который вы и записывали в dat.

если хотите записать строку(любого размера) в поток, то нужно делать так:

procedure StringToStream(Stream:TStream;Str:string); 
var i:integer; 
begin
 i:=Length(Str);
 Stream.Write(i,SizeOf(i));
 Stream.Write(Str[1],i*SizeOf(Char)); 
end; 
 
function StringFromStream(Stream:TStream):string; 
var i:integer; 
begin 
 Stream.Read(i,SizeOf(i)); 
 SetLength(Result,i); 
 Stream.Read(Result[1],i*SizeOf(Char));
end;

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