Как открыть *.dat

[mustang007]

Скажите пожалуиста как в делфи открыть файл dat формата

[ArtInt]

Что именно находится в данном файле? Если простая текстовая информация то можно например просто через функции AssignFile, Reset,CloseFile.
Если там фильм, то через компонент player.
Если там флэш, то есть компоненты для этого, или через ActiveX.

[Terran]

Type
Tp = Packed Record
St: ShortString;
Vl: Real
End;
Procedure TForm1.Button1Click(Sender: TObject);
Var
FHandle,I: Integer;
S: Tp;
Begin
FHandle:=FileOpen('my.dat',FmOpenWrite );
If FHandle = -1 Then //если файла нету,
Begin //то создать его
FHandle:=FileCreate('my.dat');
FileClose(FHandle);
FHandle:=FileOpen('my.dat',FmOpenWrite);
If FHandle = -1 Then
Exit;
End;
FileSeek(FHandle,0,2); //будем в конец
//файла писать
For I:=0 To 30 Do
Begin
S.St:='some str #' + IntTOStr(I);
S.Vl:=I / 343;
FileWrite(FHandle,S,SIZEOF(Tp));
End;
FileClose(FHandle);
End;
Procedure TForm1.Button2Click(Sender: TObject);
Var
FHandle,I,FileLen: Integer;
S: Tp;
Begin
FHandle:=FileOpen('my.dat',FmOpenRead);
If FHandle = -1 Then
Exit; //нету файла
FileLen:=FileSeek(FHandle,0,2);
FileSeek(FHandle,0,0);
If Filelen Mod Sizeof(Tp) > 0 Then
Begin //если длина файла не крата размеру
//записи - ошибка
FileClose(FHandle);
ShowMessage('Error');
End;
For I:=1 To FileLen Div SizeOf(Tp) Do
Begin
FileRead(FHandle,S,SizeOf(Tp));
ShowMessage(S.St + ' ' + FloatToStr(S.Vl))
End;
FileClose(FHandle);
End;

[mustang007]

ArtInt там текстовая информация. Terran этот код у меня не работает.

[Terran]

Если там обычный текст без всякой мути, то можете его открывать через TStringList, Memo, RichEdit и т.д.

[mustang007]

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

[NuMeR]

это от оперы который? есть проги готовые для расшифровки паролей из него

[mustang007]

да от оперы. но мне нужно открыть через delphi

[NuMeR]

тут объяснение алгоритма шифрования и даже исходник есть http://www.reteam.org/blog/archives/00000012.htm , изучай

[mustang007]

спасибо, но исходников я там не нашёл