Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

открытие файла [D5, D7, XP]

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

tsv (2006-12-25 09:44:00) [1]
Большое спасибо Umbra, всё получилось. И фаил грузится мнгновенно.
Я что-то такое пыталя накалякать но нехватило знаний и информации.
Ещё раз спасибо и с наступающим Новым Годом. ВСЕХ БЛАГ.

tsv (2006-12-23 11:25:00) [2]
Спасибо за ответ, завтра попробую. И отпишусь.

umbra (2006-12-22 12:31:00) [3]
программы посылать не стоит.
все это можно сделать проще

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;

tsv (2006-12-22 12:01:00) [4]
Блин незнаю как послать программы.

tsv (2006-12-22 11:58:00) [5]
Извените, небыло возможности подключится к интернету.
Прсмотрите мой код:
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;
Также присылаю ту программку которая с ним (с этим файлом) работает.
И прогамку которая его открывает.

Anatoly Podgoretsky (2006-12-18 13:41:00) [6]
> DrPass (18.12.2006 13:34:05) [5]

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

Anatoly Podgoretsky (2006-12-18 13:40:00) [7]
> palva (18.12.2006 13:13:04) [4]

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

DrPass (2006-12-18 13:35:00) [8]

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

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

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

DrPass (2006-12-18 13:34:00) [9]

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

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

palva (2006-12-18 13:13:00) [10]
> Не достаточно, нужно еще ShareDenyNone
Это если автор открывает при помощи API функции CreateFile.
А если assignfile/reset, то значит никак?

Anatoly Podgoretsky (2006-12-18 12:31:00) [11]
> palva (18.12.2006 12:09:01) [1]

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

StriderMan (2006-12-18 12:16:00) [12]

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

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

palva (2006-12-18 12:09:00) [13]
Открывайте файл только для чтения.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »