EEP前端程式自動更新功能 |
|
|
|
Poppy
一般會員   發表：5 回覆：6 積分：2 註冊：2003-08-12 發送簡訊給我 |
|
|
查理葉
一般會員 發表：47 回覆：35 積分：16 註冊：2003-03-31 發送簡訊給我 |
|
|
Jack0323
初階會員  發表：22 回覆：70 積分：28 註冊：2002-03-13 發送簡訊給我 |
|
|
ph
一般會員 發表：3 回覆：27 積分：11 註冊：2003-09-28 發送簡訊給我 |
1.EEP的程式自動更新:
在Client端主程式執行的目錄下
Config.ini中須設定:
[LocalHostSetting]
DisableBPLAutoRefresh=N
ClientProgID=EEP <--此為對應Server端的設定 在Server端Appsrv.exe的同一目錄下有
APPSRV.INI 須設定:
[Client Control]
EnableFileDownload=Y
FileDownloadDir=C:\EEP\APSRV\Client DownLoad Files
<--此為 EEPThinClient.exe 在Server端所在的目錄
若Client端的ClientProdID 設為EEP，程式會自動更新
C:\EEP\APSRV\Client DownLoad Files\EEP 下的程式 2.非EEP的其他檔案
建議放在ClientProgID設定的目錄下
ex.放圖片 Picture
上傳目錄: C:\EEP\APSRV\Client DownLoad Files\EEP\Picture 預計download 目錄 C:\Picture
程式碼: var V:OleVariant;
aServerPathFileList: TStrings;
i:integer;
a,b,c:string;
VI,VPOS:INTEGER;
Vfind:integer;
begin
if not DirectoryExists('c:\picture') then
if not CreateDir('C:\picture') then
raise Exception.Create('Cannot create!!');
Memo1.Clear;
aServerPathFileList := TStringList.Create;
b:=GetEEPClientProgID '\PICTURE';
V:= CallServerMethod('SBPLRefresh','GetServerFileListByProgID',varArrayOf([b,2]));
RestoreStringsFromVariant(aServerPathFileList,V[0]);
Memo1.Lines.AddStrings(aServerPathFileList);
for i:= 0 to Memo1.Lines.Count-1 do
begin
a:=CheckLocalFile('Picture\' Memo1.Lines.Strings[i],true,true,true,false);
copyfile(pchar(a),pchar('c:\Picture\' Memo1.Lines.Strings[i]),False);
end;
end;
aServerPathFileList.Free;
山即是我 我即是山
------
學了這麼久還是沒進步 |
|
stevinP
一般會員 發表：0 回覆：2 積分：0 註冊：2003-10-31 發送簡訊給我 |
發表時間：2003-08-12 11:30:57
IP:61.16.xxx.xxx 未訂閱
系統時間：2024-05-15 19:37:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |