открытие файла

← →
tsv © (2006-12-18 12:07) [0]

Господа програмисты. проблема такая: немогу открыть фаил.
Фаил откыт другим приложением и дописывается (по ходу поступления информации) втечениии суток. Мне необходимо открыть этот файл и только считать стоки (файл обычный текстовый).
При открытии файла вдаётся ошибка I/O 32. Подскажите пожалуйста
каким образом открыть (читать информацию). Этот файл открывается
в Totalcmd по F3 или по F4 либо в старинных Dosnavigator, Far

← →
palva © (2006-12-18 12:09) [1]

Открывайте файл только для чтения.

← →
StriderMan © (2006-12-18 12:16) [2]

> При открытии файла вдаётся ошибка I/O 32.

как открываете? код в студию

← →
Anatoly Podgoretsky © (2006-12-18 12:31) [3]

> palva (18.12.2006 12:09:01) [1]

Не достаточно, нужно еще ShareDenyNone

← →
palva © (2006-12-18 13:13) [4]

> Не достаточно, нужно еще ShareDenyNone
Это если автор открывает при помощи API функции CreateFile.
А если assignfile/reset, то значит никак?

← →
DrPass © (2006-12-18 13:34) [5]

> palva © (18.12.06 13:13) [4]

FileMode:= 0, а потом уже Reset

← →
DrPass © (2006-12-18 13:35) [6]

> Не достаточно, нужно еще ShareDenyNone

...указанное этим самым "другим приложением"
Но т.к.
> Этот файл открывается
> в Totalcmd по F3 или по F4 либо в старинных Dosnavigator,
> Far

/*что значит "старинный FAR"?! :-)*/
значит, указано

← →
Anatoly Podgoretsky © (2006-12-18 13:40) [7]

> palva (18.12.2006 13:13:04) [4]

Автор никак не открывает, автор партизан.

← →
Anatoly Podgoretsky © (2006-12-18 13:41) [8]

> DrPass (18.12.2006 13:34:05) [5]

И потом капут второй программе.

← →
tsv © (2006-12-22 11:58) [9]

Извените, небыло возможности подключится к интернету.
Прсмотрите мой код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
//F: TSearchRec;
//var F: System.Text;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var F: TextFile;
S: String;
//I: Integer;
begin
Memo1.Clear;
//FileOpen("D:\TTY\TTY-3\061222.IW",fmShareDenyNone);
AssignFile(F,"D:\TTY\TTY-3\061222.IW");
FileMode:= 0;
//FilePos(F);
Reset(F);
//
Repeat
ReadLn(F,S);
Memo1.Lines.Add(S);
until Eof(F);
CloseFile(f);
end;
Также присылаю ту программку которая с ним (с этим файлом) работает.
И прогамку которая его открывает.

Блин незнаю как послать программы.

программы посылать не стоит.
все это можно сделать проще

procedure TForm1.Button2Click(Sender: TObject);
var F: TFileStream;

begin
Memo1.Clear;
f := nil;
f := TFileStream.Create("D:\TTY\TTY-3\061222.IW", fmOpenRead or
fmShareDenyNone);
if Assigned(f) then
begin
f.Position := 0;
memo1.Lines.LoadFromStream(f);
f.Free;
end;
end;

Спасибо за ответ, завтра попробую. И отпишусь.

Большое спасибо Umbra, всё получилось. И фаил грузится мнгновенно.
Я что-то такое пыталя накалякать но нехватило знаний и информации.
Ещё раз спасибо и с наступающим Новым Годом. ВСЕХ БЛАГ.

открытие файла Найти похожие ветки