一个我很迷惑的api问题和一个文件复制问题(50分)

wuan · 2003-02-13

var lp

char;s:integer; begin   s:=gettemppath(30,lp);   edit1.Text:=copy(lp,1,s); end; 上面的代码，如果响应buttonclick时edit1没有任何反应，但响应formcreat时， 就可以得到临时文件夹路径。对了即使响应formcreat时得到了,在关闭程序时 还会报错,为什么呢？   第二.我想用流复制文件中的一段(不是全部),我发现从其他文件中复制一部分是可以的, 但是要从自身复制时就会出错,怎样才能从自身复制一块.(因有些文件是多个合成在一起的 我想运行第一个文件时,自动分离后面的文件.与病毒无关啊!).

lvxq · 2003-02-13

在运行上述的api函数时，应该先为它分配内存空间 比如 var  lp:array[0..255] of char;  s:integer; begin   s:=gettemppath(255,lp);   edit1.Text:=copy(lp,1,s); end; 这样就可以了， 对于第二个问题，你可以尝试用fileopen, fileread, filewrite 函数试试，如果还 不行，建议你巴要分离的文件当成res文件处理

pink_wt · 2003-02-13

var lp

char; s:integer; begin   getmem(lp,255);   s:=gettemppath(255,lp);   edit1.Text:=copy(lp,1,s); end; 在delphi6.0,win2000下通过

netxeyes · 2003-02-13

var  lp

char; begin   gettemppath(30,lp);   edit1.text:=string(pchar); //typecast pchar to string end;

wuan · 2003-02-13

netxeyes的答案好像行不通！   再上两层的答案是正确的。不过还有一个问题没解决，所以分数要少一点啦。请见谅，     在此表示感谢！

netxeyes · 2003-02-14

To:wuan 我试过了，可以的呀！你留个E_mail,我把源代码和可执行文件都发给你！

wuan · 2003-02-14

netxeyes: 那可能是我那个地方没设好！总之谢谢，              wuzhongan1@sina.com  对了第二个问题我已经自己解决了。

wuan · 2003-02-17

多人接受答案了。

一个我很迷惑的api问题和一个文件复制问题(50分)

wuan

Unregistered / Unconfirmed

lvxq

Unregistered / Unconfirmed

pink_wt

Unregistered / Unconfirmed

netxeyes

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

netxeyes

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

Similar threads