主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

文件访问权限 找到类似的分支


finger   (2002-07-15 09:51) [0]

掌握一天中的美好时光!
请告诉我如何处理错误!
当您打开另一个应用程序占用的文件时,会发生错误,您无法处理它。
在书中阅读
IoResult
我试过没有“备忘录”
过程TForm1.Button1Click(Sender:TObject); VAR F:字节文件; 开始 如果opendialog1.Execute然后开始 AssignFile(F,opendialog1.FileName); {$ I-} 重置(f); {$ I +} 如果ioresult = 0那么 showmessage(“伤害”) 其他 showmessage(“Hrenovo”); 结束; 结束;
Всеработает
如果不是“showmessage(”Zashib“)而是”放
memo1.Lines.LoadFromFile(opendialog1.FileName)
这不起作用。
真诚。



MAxiMum   (2002-07-15 10:05) [1]

当然,该文件不会像在另一个应用程序中那样工作。 尝试使用FileRead打开文件,使用FileRead读取缓冲区并“手动”放置(即将读取缓冲区分配给Text Memo1属性)。
事实是AssignFile,Reset等。 试图以独占模式打开文件,这不允许Windows,因为 该文件由另一个应用程序打开。 但如果该应用程序“良好”并且被授予访问权限,至少在阅读时,那么在FileOpen的帮助下,您仍然可以打开该文件。



TTCustomDelphiMaster   (2002-07-15 10:14) [2]

看看帮助
尝试



结束;



Agent Smith   (2002-07-15 10:39) [3]

您可以根据以下方案生成异常:
尝试 //可能会发生错误 最后 //一切都应该在这里完成,即使出现错误 结束;然后,您可以将控制转移到新级别,例如,转移到全局扩展处理程序。 情况。
还有另一种方案:
尝试 //可能会出现错误 除了 //这将在发生错误时起作用 结束;



finger   (2002-07-15 12:27) [4]

伙计们,我根本不需要打开它。
我需要做像Abort这样的事情
我有一个围绕300字符串的函数,我不知道如何在那里写。 我将所有内容发送到CheckFileOpen例如
procedure TClientForm.FormShow(Sender:TObject); VAR 我:整数; 开始 if(ParamCount> 0)然后 开始 对于我:= 1到ParamCount做 CheckFileOpen(ParamStr(I)); 结束 其他 NEWFILE; 结束;
但CheckFileOpen。
procedure TClientForm.CheckFileOpen(const FileName:string); VAR 我:整数; 开始 用TabControlTxtFiles做 for i:= 0 to Tabs.Count - 1 do 如果CompareText(TSource(Tabs.Objects [i])。ObjectName,FileName)= 0则 开始 TabControlFiles.TabIndex:= i; TabControlFilesChange(Self); 退出; 结束; 如果不是fileexists(Filename)则退出 其他 OpenFile(Filename); // a,这里处理每个文件本身并在300行上处理它。 end; //编译器指向此行
此致



finger   (2002-07-15 16:34) [5]

我刚刚没有插入这个Try / Except的东西的人,没有任何东西从我身上出来。 好吧帮助PLIZ一段代码。 重点不在于此窗口崩溃.Canot打开文件.....如果程序没有运行并且您可以从命令行Edit With MyProgramm创建这样的文件,我不会动态创建新文档并保持空白,直到您单击新建文件。 一个SDI应用程序,仍然没有文本框!
Pliiiiz!
顺祝商祺。



finger   (2002-07-15 20:31) [6]

好吧,如果没有人可以提供帮助,有人可以告诉我是否有任何标准功能来确定文件是否忙于另一个应用程序?
真诚。



Agent Smith   (2002-07-15 20:56) [7]

有一个想法暂时复制该文件,然后打开一个副本。 这个想法刚才出现,没有理由去考虑它,所以这可能只是胡说八道......



Anatoly Podgoretsky   (2002-07-15 20:56) [8]

您首先谈到了Reset,然后讨论了未知的OpenFile函数,给出了它的描述。



finger   (2002-07-15 21:12) [9]

function TClientForm.OpenFile(const FileName:string):TMSource; VAR s,ts:string; 开始 ts:=“4”; 结果:= TMSource.Create(Self); result.UseGlobalOptions:= true; result.TabStops:= ts; //result.TemplatesType:= Editor.GetSource.TemplatesType; //result.CodeTemplates:= Editor.GetSource.CodeTemplates; 如果FileName =“”那么 s:= UniqueSourceName 其他 开始 // ******************* Pascal文件********************** // 如果小写(extractfileext(Filename))=“。pas”则 开始 s:= FileName; result.LoadFromFile(s); result.SyntaxParser:= Pascal; // MRUListTxtEditor.Add(s); 结束
对于每个文件扩展名都是这样的!
它只处理文件扩展名。
UniqueSourceName是TabControl Untitled1.2.3.4上每个标签的编号......
OpenFile不适用于打开文件
例如,对于MRU,我通过了
MRUList.Add(CheckFileOpen(Filename));
在我连接NTUser.dat之前,这一切都运行良好
他nafig我不需要只是睁开眼睛。
我不需要打开这些文件只是为了正确报告该文件不可用。
真诚。



Anatoly Podgoretsky   (2002-07-15 21:19) [10]

手指©(15.07.02 20:31)
要确定就业,应尝试以独占模式打开文件。



finger   (2002-07-15 21:32) [11]

我可能还是没有解释。
CheckFileOpen检查是否打开了同名文件,如果是,则退出。如果不是,则打开OpenFile(文件名)。
OpenDialog仅由“打开”按钮调用。 - 很少使用。 因为导体也会插入程序中。
例如在资源管理器中 procedure TClientForm.ExplorerListViewDblClick(Sender:TObject); VAR 文件名:字符串; 开始 如果ExplorerListView.Selected = nil则退出 其他 Filename:= IncludeTrailingBackSlash(FolderEditExplorer.Text)+ ExplorerListView.Selected.Caption; CheckFileOpen(文件名); 结束;
好吧,这是打开按钮
procedure TClientForm.mnuOpenClick(Sender:TObject); 开始 与opendialog做 如果执行则 CheckFileOpen(FileName); 结束;
一切都通过上面的CheckFileOpen。
C尊重。



finger   (2002-07-15 21:34) [12]

致Anatoly Podgoretsky©
怎么样?
C尊重。



Anatoly Podgoretsky   (2002-07-15 21:44) [13]

我不知道TMSource是什么,你不提供很多重要信息。

但试试看
尝试 result.LoadFromFile(s); 除了 在这里你发现了一个错误 结束



JohnnyCrisJoe   (2002-07-15 23:06) [14]

过程TForm1.Button1Click(Sender:TObject);
VAR
F:字节文件;
开始
如果opendialog1.Execute然后开始
AssignFile(F,opendialog1.FileName);
{$ I-}
重置(f);
{$ I +}
CloseFile(F);
如果ioresult = 0那么
showmessage(“伤害”)
其他
showmessage(“Hrenovo”);
结束;
结束;

试试这个。 :)




JohnnyCrisJoe   (2002-07-15 23:07) [15]

好吧,当然,更换 showmessage(“伤害”)memo1.Lines.LoadFromFile(opendialog1.FileName)



finger   (2002-07-16 05:53) [16]

致Anatoly Podgoretsky©(15.07.02 21:44)
什么都没有去OpenFile,它甚至没有达到,它停在CheckFileOpen。

致JohnnyCrisJoe©(15.07.02 23:06)
自己尝试一下,它将使用代码,再次只使用可用文件,如果在Win2k NTUser.dat或98中挂钩我不记得它叫什么叫WIN386.SWP - 103 I / O错误“文件在执行CloseFile程序时没有打开.. ......“
真诚。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上









内存:0.62 MB
时间:0.032 c
6-95476
色狼
2002-05-16 18:52
2002.07.29
从服务器获取文件


6-95473
MixerPro
2002-04-17 08:39
2002.07.29
帮助MNPOP3


3-95266
UnDISCOvery
2002-07-08 14:15
2002.07.29
MS ADO。 如何确定是否安装?


7-95591
Igor345
2002-04-30 03:47
2002.07.29
Win2000性能


14-95565
VAleksey
2002-07-04 09:34
2002.07.29
Variants.dcu





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский