救命!!,在三层的client端如何判断在中间层某个文本文件是否存在? 300分 (300分)

  • 主题发起人 主题发起人 张剑波
  • 开始时间 开始时间

张剑波

Unregistered / Unconfirmed
GUEST, unregistred user!
在中间层 Application Server 中"FileExists"不管用!!
因为中间层的机器和FTP服务器在同一台机器,通过FTP传来的TXT文本数据必须在
中间层处理,在client处理前必须判断TXT文本数据是否存在,为防止泄密又不能传
到client.
 
在uses 中加入SysUtils单元
 
"在uses 中加入SysUtils单元"
不让加,加上出错.跟中间层的状态有关系.
 
在中间层里引出一个函数来,这个函数调用FileExists,再让客户端调用这个函数。
 
"在中间层里引出一个函数来,这个函数调用FileExists,再让客户端调用这个函数。"
试过,不行,thanks
 
使用FindFirst函数,必要时候使用API函数FindFirstFile.
 
xeen大侠:
FindFirstFile你就举个小例子吧, API我不会用.
 
HANDLE FindFirstFile(
LPCTSTR lpFileName, // pointer to name of file to search for
LPWIN32_FIND_DATA lpFindFileData // pointer to returned information
);
我的头有些晕,不会用,给个例子吧
 
procedure TForm1.Button1Click(Sender: TObject);
var
FoundData:TWIN32FindData;
FindHandle:Thandle;
begin
FindHandle := FindFirstFile(pchar('c:/io.sys'),FoundData);
try
if FindHandle<> INVALID_HANDLE_VALUE then
begin
//add your code here
end;
finally
CloseHandle(FindHandle);
end;
end;
 
Xeen先生:
非常感谢你的帮助,以至于满腔谢意无法表达.
 
多人接受答案了。
 
后退
顶部