文件操作函数详细资料和例程(100分)

  • 主题发起人 主题发起人 邹光先
  • 开始时间 开始时间
邹

邹光先

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在急需有关文件操作函数详细资料，如果有例程更好。特别是
如FileCreate,FileOpen,FileSeek一系列的用法，以及使用
后对文件操作位置的影响。
 
到深度历险去下载本书吧.
http://download.fzu.edu.cn
 
我有一个编译好的Win Help文件（E文）， 里面有delphi全部的基本函数，
有说明和分类。
 
sorry , 没有看清楚， 你大概要的是win32 API 函数的说明，有人吗？`
 
呵呵
下载一份
delphi4.0参考手册(glowing.163.net)
里面讲得很细的
 
FileCreate,FileOpen,FileSeek实际上是Delphi对Win32 API的包装，查看
Delphi的SysUtils.Pas中的定义可见详细内容。Delphi自己有一套由Pascal
发展来的文件操作函数，尽量不要混合使用这两套函数，否则可能会引起文件
访问冲突。
 
邹光先:
I have sent the delphi4.0参考手册 to you ,wish you like it!
 
邹光先:
If you receive my mail,please tell me here!!!
 
to DancingAgain: 不知道怎么回事，我还没有收到你发的文件。
 
To :Schiesser >>我连不上http://download.fzu.edu.cn，速度太慢了。我也不知道要 下载哪一本书,请详细一点好吗？
To :SeaSky >>glowing.163.net 也是速度太慢了。
 
Seasky:多大？小的我要:)
 
To CJ : 400多K, 明天注意你的信箱.
 
Turbo Pascal书上文件的用法及实例那么多，它们均适于Delphi!
 
别忘了要把open,close改成FileOpen,FileClos之类的转换，
 
我看过pascal得书，但是好象讲FileOpen,FileCreate一类对
文件句柄操作得几乎没有。
现在，我还没有找到资料，编程时，我用了一段代码来测试。如下：
procedure TForm1.Button2Click(Sender: TObject);
var FHandle:integer;
Buffer:Pchar;
begin
FHandle:=FileCreate('C:/temp.txt');
Buffer:='thank u';
FileWrite(FHandle,Buffer,sizeof(Buffer));
FileClose(FHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var FHandle:integer;
Buffer:Pchar;
begin
FHandle:=FileOpen('c:/temp.txt',fmOpenWrite);
FileRead(FHandle,Buffer,7);
ShowMessage(Buffer);
FileClose(FHandle);
end;
但老是得不到正确得结果，用notepad打开temp.txt，看不到'thank u'这几个字，请问，这是为什么？
 
change to this, try it:
procedure TForm1.Button2Click(Sender: TObject);
var FHandle:integer;
Buffer:string;
{Buffer:PChar;}
begin
FHandle:=FileCreate('C:/temp.txt');
Buffer:='thank u';
FileWrite(FHandle,@Buffer[1],length(Buffer));
{FileWrite(FHandle,Buffer,7);}
FileClose(FHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var FHandle:integer;
Buffer:string;
begin
FHandle:=FileOpen('c:/temp.txt',fmOpenWrite);
SetLength(Buffer,7);
FileRead(FHandle,@Buffer[1],7);
ShowMessage(Buffer);
FileClose(FHandle);
end;

The other way is that you can use stream: TMemoryStream, TFileStream.
 
delphi4.0参考手册和另一份文件操作方法的说明文档资料（1M）给你发过去了。
收到了来信确认
 
to miki >> 还没收到
 
谢了miki,文件收到
 
邹光先:
对你的程序改动如下，可正常运行，请一试.
procedure TForm1.Button2Click(Sender: TObject);
var FHandle:integer;
Buffer:Pchar;
begin
FHandle:=FileCreate('C:/temp.txt');
Buffer:='thank u';
FileWrite(FHandle,Buffer^,Length(Buffer));
//1 //2
FileClose(FHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var FHandle:integer;
Buffer:Pchar;
begin
FHandle:=FileOpen('c:/temp.txt',fmOpenWrite and fmOpenRead);
//3
new(Buffer);
//4
FileRead(FHandle,Buffer^,7);
//2
ShowMessage(Buffer);
FileClose(FHandle);
end;
改动之处：
1.对指针SizeOf只能得到4，改为Length可得到正确值；
2.对指针所指变量操作，应加上^；
3.读方式打开文件，加上fmOpenRead；
4.指针必须进行初始化。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
G
installshield 详细资料(100分)
回复
2
查看
103
gongfs
G
9
请问那里有 Delphi 控件、函数的中文参考资料下载(0分)
回复
2
查看
150
987654321
9
C
小弟刚学Sock编程，请教哪有Sock API 函数,结构体，返回值，的详细中文资料下载(20分)
回复
5
查看
154
codebase
C
丰
TWebBrowser vcl的使用方法或详细资料！(100分)
回复
1
查看
186
zw84611
Z
后退
顶部