mail104s.lzh MAILBOX.MBF

www.pudn.com > mail104s.lzh > MAILBOX.MBF
+OK 696 octets 
Received: from server1.sinter ([163.17.3.221]) by ms9.hinet.net (8.7.5/8.7.5) with SMTP id JAA18530 for ; Tue, 20 Aug 1996 09:06:32 +0800 (CST) 
Date: Tue, 20 Aug 1996 09:06:32 +0800 (CST) 
X-UIDL: 840528859.003 
From: k51vum@ms2.hinet.net 
Message-Id: <199608200106.JAA18530@ms9.hinet.net> 
To: timing96@ms9.hinet.net 
Subject:  為何收不到信...... 
X-Mail: Sample Mail Transfer Protocol V 1.0 
Status: RO 
 
隔壁的小姐 
      我是妳的鄰居, 寫一封測試, 若妳收到請回信 
                            
 
 
                    路人甲留 
 
Memo2 
 
 
. 
+OK 696 octets 
Received: from server1.sinter ([163.17.3.221]) by ms9.hinet.net (8.7.5/8.7.5) with SMTP id JAA18530 for ; Tue, 20 Aug 1996 09:06:32 +0800 (CST) 
Date: Tue, 20 Aug 1996 09:06:32 +0800 (CST) 
X-UIDL: 840528859.003 
From: k51vum@ms2.hinet.net 
Message-Id: <199608200106.JAA18530@ms9.hinet.net> 
To: timing96@ms9.hinet.net 
Subject:  為何收不到信...... 
X-Mail: Sample Mail Transfer Protocol V 1.0 
Status: RO 
 
隔壁的小姐 
      我是妳的鄰居, 寫一封測試, 若妳收到請回信 
                            
 
 
                    路人甲留 
 
Memo2 
 
 
. 
+OK 2420 octets 
Received: from ibmsrv.cc.nthu.edu.tw (ibmsrv.cc.nthu.edu.tw [140.114.66.61]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id UAA21770; Tue, 20 Aug 1996 20:12:13 +0800 (CST) 
Received: (from majordom@localhost) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) id LAA45882 for delphichat-outgoing; Tue, 20 Aug 1996 11:03:02 GMT 
Received: from ms2.hinet.net (root@ms2.hinet.net [168.95.4.20]) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) with ESMTP id UAA39730 for ; Tue, 20 Aug 1996 20:03:00 +0900 
Received: from hntp1.hinet.net.hinet.net ([168.95.26.10]) by ms2.hinet.net (8.7.5/8.7.5) with ESMTP id UAA21237 for ; Tue, 20 Aug 1996 20:01:32 +0800 (CST) 
Message-Id: <199608201201.UAA21237@ms2.hinet.net> 
From: "羅正東"  
To:  
Subject: Re: 回覆: [DELPHI][DELPHI-VB][DataBase] 
Date: Tue, 20 Aug 1996 19:55:53 +0800 
X-MSMail-Priority: Normal 
X-Priority: 3 
X-Mailer: Microsoft Internet Mail 4.70.1132 
MIME-Version: 1.0 
Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw 
Precedence: bulk 
Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw 
 
---------- 
> 送件者: 葉振山   
> 收件者: delphichat@ibmsrv.cc.nthu.edu.tw 
> 主旨: Re: 回覆: [DELPHI][DELPHI-VB][DataBase] 
> 日期: 1996年8月20日 PM 03:19 
 
>     在討論 Client / Server時我想, Client / Server並不獨是資料庫的專利, 
我是興德 
> 的系統工程師,在接觸 Client / Server時 Delphi剛推出來, 許多在用 
Clipper的人恐怕 
> 還想像不出 Client / Server的好處。特別是 Performance及 Security以 Delphi 
C/S 
....... 
 
興德‧葉大哥，您好： 
 
看到您熱心介紹Client/Server的經驗及心得，發封信謝謝您，因為小弟也一直關心這 
個問題（不過尚無實作經驗），Delphi 
2.01直接支援了Internet的功能，目前對公司內部的Intranet較感興趣，請問Intranet 
與Client/Server是相輔相成？或僅能擇其一來架構？ 
 
Thanks!! 
 
[東東] 8/20 
 
◤======================================◥ 
∥          ★ 獨學而無友，則孤陋而寡聞 ★          
∥------------------------------------------------------------ 
∥‧  E-MAIL  ：yee03@ms2.hinet.net                        
∥‧  TEL/FAX：(089)233-236             :)                       
∥------------------------------------------------------------ 
∥ˇ 真心誠意+企圖心+行動力=品質提昇的動力！   
◣======================================◢ 
 
 
 
 
. 
+OK 1285 octets 
Received: from ibmsrv.cc.nthu.edu.tw (ibmsrv.cc.nthu.edu.tw [140.114.66.61]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id TAA19336; Tue, 20 Aug 1996 19:47:09 +0800 (CST) 
Received: (from majordom@localhost) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) id KAA45982 for delphichat-outgoing; Tue, 20 Aug 1996 10:40:58 GMT 
Received: from ms6.hinet.net (root@ms6.hinet.net [168.95.4.60]) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) with ESMTP id TAA38550 for ; Tue, 20 Aug 1996 19:40:56 +0900 
Received: from default ([168.95.102.226]) by ms6.hinet.net (8.7.5/8.7.5) with SMTP id TAA11777 for ; Tue, 20 Aug 1996 19:39:55 +0800 (CST) 
Received: by default with Microsoft Mail 
	id <01BB8ECF.08183800@default>; Tue, 20 Aug 1996 19:37:32 +0800 
From: georges@ms6.hinet.net 
Message-ID: <01BB8ECF.08183800@default> 
To: "'delphichat@ibmsrv.cc.nthu.edu.tw'" 
	  
Subject: database pack 
Date: Tue, 20 Aug 1996 19:36:43 +0800 
Encoding: 1 TEXT 
Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw 
Precedence: bulk 
Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw 
 
請問使用delphi  dbase的檔案型態, 如何做pack的動作? 
 
 
. 
+OK 1237 octets 
Received: from ms1.hinet.net (root@ms1.hinet.net [168.95.4.10]) by ms2.hinet.net (8.7.5/8.7.5) with ESMTP id TAA17724; Tue, 20 Aug 1996 19:40:02 +0800 (CST) 
Received: from aptiva.etcafe.com.tw ([203.69.242.102]) by ms1.hinet.net (8.7.5/8.7.5) with SMTP id TAA00940; Tue, 20 Aug 1996 19:38:14 +0800 (CST) 
From: life@www.etcafe.com.tw 
Date: Tue, 20 Aug 1996 19:38:14 +0800 (CST) 
Message-Id: <199608201138.TAA00940@ms1.hinet.net> 
X-Sender: life@mail.etcafe.com.tw (Unverified) 
X-Mailer: Windows Eudora Light Version 1.5.2 
Mime-Version: 1.0 
To: (Recipient list suppressed) 
Subject: 你知道-如何在30分鐘內成為一流的演講高手嗎? 
 
講題:使你在30分鐘內成為一流的演講高手 
 
<參加此次講習，很可能因此改變您的一生> 
不論您是否曾參加類似的講習，它會是一次非常不同的經驗 
 
講師:李恆浩 
          神精語言諮商顧問 
          美商喬治亞人壽業務總監           
          系統動力訓練機構首席講師           
          美國壽險人經理人協會會員 
           
      
      
費用:500元(8月22日以前報名300元優待) 
     無效退費 
時間:9月3日19:30-21:30 
地點:台中市西區向上路一段95號10樓訓練室 
報名:life@mail.etcafe.com.tw 
 
 
. 
+OK 1952 octets 
Received: from ibmsrv.cc.nthu.edu.tw (ibmsrv.cc.nthu.edu.tw [140.114.66.61]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id TAA14529; Tue, 20 Aug 1996 19:07:17 +0800 (CST) 
Received: (from majordom@localhost) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) id JAA34696 for delphichat-outgoing; Tue, 20 Aug 1996 09:53:55 GMT 
Received: from delphi.com.tw (delphi.com.tw [168.95.200.103]) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) with ESMTP id SAA43392 for ; Tue, 20 Aug 1996 18:53:52 +0900 
Received: by localhost from delphi.com.tw 
    (router,WinSmtp -Win32- V1.07beta1.7.s); Tue, 20 Aug 1996 18:46:56  
Received: by localhost from delphi.com.tw 
    (router,WinSmtp -Win32- V1.07beta1.7.s); Tue, 20 Aug 1996 14:01:52 
Received: from James by delphi.com.tw 
    (192.168.0.10::mail daemon,WinSmtp -Win32- V1.07beta1.7.s); Tue, 20 Aug 1996 14:01:22 
Message-Id: <2.2.32.19960820060501.0068f7d8@delphi.com.tw> 
X-Sender: James Chang  
X-Mailer: Windows Eudora Pro Version 2.2 (32) 
Mime-Version: 1.0 
Date: Tue, 20 Aug 1996 14:05:01 +0800 
To: delphichat@ibmsrv.cc.nthu.edu.tw 
From: James Chang  
Subject: Re: [delphi][function]How to get win95 directory? 
Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw 
Precedence: bulk 
Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw 
 
 
 
At 08:21 AM 1996/8/20 +0800, you wrote: 
> 
>大家好，我是一個delphi的新手， 
>請問在win95下要如何取得win95的目錄，謝謝！ 
試試 GetWindowsDirectory 這個API. 原型宣告如下: 
function GetWindowsDirectory(Buffer: PChar; Size: Word): Word; 
 
regards, 
        James Chang 
 
---- 
James Chang 
Technical Consultant, Taiwan Delphi User Group 
Software Engineer, Photin Enterprise Corp. 
E-Mail: james@delphi.com.tw    james@mail.wow.net.tw 
URL: http://users.wow.net.tw/~james         
 
 
. 
+OK 7484 octets 
Received: from ibmsrv.cc.nthu.edu.tw (ibmsrv.cc.nthu.edu.tw [140.114.66.61]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id RAA08854; Tue, 20 Aug 1996 17:48:36 +0800 (CST) 
Received: (from majordom@localhost) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) id IAA43034 for delphichat-outgoing; Tue, 20 Aug 1996 08:42:41 GMT 
Received: from accton.com.tw ([203.70.236.236]) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) with SMTP id RAA38418 for ; Tue, 20 Aug 1996 17:41:17 +0900 
Received: by AccSMTP Gateway for AccMail (v3.00R0/k3.0); Tue, 20 Aug 1996 17:45:25 +0800 
From: ESUN@accton.com.tw 
Message-Id: <19960820.17452596@AccSMTP> 
Accsmtp: AccMail 
Date: Tue, 20 Aug 1996 17:45:25 +0800 
To: delphichat@ibmsrv.cc.nthu.edu.tw 
AccMail-To: delphichat@ibmsrv.cc.nthu.edu.tw 
Subject: [Delphi][Database]動能態連結程式庫 IDAPI32.dll 起始失敗 
Attribute: S 
AccPass: +0 
Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw 
Precedence: bulk 
Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw 
 
大家好: 
    一個問題請教, 目前在做有關 ISAPI 的 DLL 與資料庫結的部分, 
發生一個問題 - 動能態連結程式庫 IDAPI32.dll 起始失敗 (error $2108)!  
請不吝指教... 
 
    我們所要連的是MS SQL 6.5, 首先己設定好ODBC32的System DSN,  
其中Data Source Name 設為 faq, 然後在 Borland 的 BDE 中設定 
Drivers及Alias, 其中Drivers與Alias的ODBC DSN即設為faq, 另外 
Alias name 是faq2. 於是第一個題要請教的是, 以上設定上是不還有 
啥要注意的, 或是有什啥不對的, 謝謝 ! (基本上我們用Delphi的 
Database Explore 從以上設定己可正確 Access 到Server的資料庫) 
 
   另外, 在程式中有以下的設定:(只截取有關資料庫部分) 
   DB : TDatabase; 
   TB : TTable; 
 
   DB := TDatabase.Create(nil); 
   TB := TTable.Create (nil); 
try 
   DB.LoginPrompt := False; 
   DB.AliasName := 'faq2'; 
   DB.DatabaseName := 'FAQTest'; 
   TB.DatabaseName := 'FAQTest'; 
   TB.TableName := 'odb.main'; // main 為 SQL 中的一個Table 
   TB.Open; 
finally 
    TB.Free; 
    DB.Free; 
    end; 
 except 
    on E: Exception do Writeln (F,'Error: '+E.Message); // 錯誤是從這裡出來 ... 
 
全部詳細程式如下: 
 
Library faq2; 
Uses 
  ISAPIExt, 
  SysUtils, 
  Windows, 
  DB, 
  DBTables, 
  Classes, 
  ParseHTM; 
 
Function GetExtensionVersion ( Var VerInfo : THse_Version_Info ) : Bool; Export; 
  StdCall; 
{This function is responsible for the negotiation of the 
ISAPI version between the DLL <-> IIS} 
begin 
    VerInfo.ExtensionVersion := MAKELONG( HSE_VERSION_MINOR, 
                                          HSE_VERSION_MAJOR  ); 
 
    StrPCopy( VerInfo.ExtensionDesc, 
              'FAQ Query Test' ); 
 
    Result := True; 
end; 
 
Function HttpExtensionProc ( Var ECB : TEcb ) : Cardinal; export; stdcall; 
{This is where the ISAPI extension is actually implemented} 
Var 
  F       : TEXT; 
  AUTH_TYPE,CONTENT_LENGTH,CONTENT_TYPE,GATEWAY_INTERFACE, 
  PATH_INFO,PATH_TRANSLATED,QUERY_STRING,REMOTE_ADDR,REMOTE_HOST, 
  REMOTE_USER,REQUEST_METHOD,SCRIPT_NAME,SERVER_NAME,SERVER_PORT, 
  SERVER_PROTOCOL,SERVER_SOFTWARE,AUTH_PASS,HTTP_ACCEPT: String; 
 
  DB : TDatabase; 
  TB : TTable; 
 
Procedure InitializeServerVars; 
begin 
  AUTH_TYPE :=          GetServerVar(ECB, 'AUTH_TYPE'); 
  CONTENT_LENGTH:=      GetServerVar(ECB, 'CONTENT_LENGTH'); 
  CONTENT_TYPE:=        GetServerVar(ECB, 'CONTENT_TYPE'); 
  GATEWAY_INTERFACE:=   GetServerVar(ECB, 'GATEWAY_INTERFACE'); 
  PATH_INFO:=           GetServerVar(ECB, 'PATH_INFO'); 
  PATH_TRANSLATED:=     GetServerVar(ECB, 'PATH_TRANSLATED'); 
  QUERY_STRING:=        GetServerVar(ECB, 'QUERY_STRING'); 
  REMOTE_ADDR:=         GetServerVar(ECB, 'REMOTE_ADDR'); 
  REMOTE_HOST:=         GetServerVar(ECB, 'REMOTE_HOST'); 
  REMOTE_USER:=         GetServerVar(ECB, 'REMOTE_USER'); 
  REQUEST_METHOD:=      GetServerVar(ECB, 'REQUEST_METHOD'); 
  SCRIPT_NAME:=         GetServerVar(ECB, 'SCRIPT_NAME'); 
  SERVER_NAME:=         GetServerVar(ECB, 'SERVER_NAME'); 
  SERVER_PORT:=         GetServerVar(ECB, 'SERVER_PORT'); 
  SERVER_PROTOCOL:=     GetServerVar(ECB, 'SERVER_PROTOCOL'); 
  SERVER_SOFTWARE:=     GetServerVar(ECB, 'SERVER_SOFTWARE'); 
  AUTH_PASS:=           GetServerVar(ECB, 'AUTH_PASS'); 
  HTTP_ACCEPT:=         GetServerVar(ECB, 'HTTP_ACCEPT'); 
end; 
 
 
 
 
begin 
   {Sending Default Response 200 OK} 
   ECB.ServerSupportFunction( ECB.ConnID, 
                          HSE_REQ_SEND_RESPONSE_HEADER, 
                          NIL, 
                          NIL, 
                          NIL                               ); 
 
  AssignIsapi( F, ECB ); {Associates file F with the output to the client} 
  Append( F ); 
 
  InitializeServerVars; 
 
  {Here we get/send data} 
 
  WriteLN( F, ''  ); 
  WriteLn( F, ''  ); 
 
  WriteLn( F, '',PrepareString('FAQ Query Page'),'' ); 
 
  WriteLN( F, '' ); 
  WriteLn( F, ''  ); 
   
  {---------------------------------} 
  {Database/DataSource Creation} 
  {---------------------------------} 
  DB := TDatabase.Create(nil); 
  TB := TTable.Create (nil); 
  {---------------------------------} 
 
  try 
    try 
    {---------------------------------} 
    {Database INIT} 
    {---------------------------------} 
    DB.LoginPrompt := False; 
    DB.AliasName := 'faq2'; 
    DB.DatabaseName := 'FAQTest'; 
    {---------------------------------} 
 
 
    {---------------------------------} 
    {Init Table & Output Table Data} 
    {---------------------------------} 
    TB.DatabaseName := 'FAQTest'; 
    TB.TableName := 'dbo.main'; 
    TB.Open; 
    Writeln (F,''); 
    while not TB.eof do 
    begin 
      Writeln (F, 
      ''    ,'' 
    ,'' 
    ,'' 
    ,'' 
    ,'' 
    ,'' 
    ,'' 
      ,'' 
                 ); 
      TB.Next; 
    end; 
    Writeln (F,'',PrepareString(TB.FieldByName('author').AsString),' ',PrepareString(TB.FieldByName('date').AsString),' ',PrepareString(TB.FieldByName('email').AsString),' ',PrepareString(TB.FieldByName('faq_no').AsString),' ',PrepareString(TB.FieldByName('fax').AsString),' ',PrepareString(TB.FieldByName('subject').AsString),' ',PrepareString(TB.FieldByName('tel').AsString),''); 
    {---------------------------------} 
 
     
    Writeln (F,'Author: '+PrepareString('Esun Lin')+'
'); 
    Writeln (F,'EMail: esun@accton.com.tw
'); 
    Writeln (F,'Company: '+PrepareString('Accton Tech.')+'
'); 
    Writeln (F,'Version: 0.013
'); 
    Writeln (F,'© '+PrepareString('013 Coyp right 1996')+'
'); 
    Writeln (F,PrepareString('This is a test ...
')); 
 
    finally 
    {---------------------------------} 
    {Freeing Database Components} 
    {---------------------------------} 
    TB.Free; 
    DB.Free; 
    end; 
    {---------------------------------} 
 
  except 
    on E: Exception do Writeln (F,'Error: '+E.Message); 
  end; 
 
  Writeln (F, ''); 
  Writeln (F,'Date: 1996/8/20
'); 
  Writeln (F,'Time: 02:22:32 下午
'); 
 
 
  WriteLn( F, '' ); 
  WriteLn( F, '' ); 
 
  Close( F ); 
  Result := HSE_STATUS_SUCCESS; 
end; 
 
exports 
  HttpExtensionProc, 
  GetExtensionVersion; 
begin 
end. 
 
   /\_o                               ### 
  / |\>P                             mo om 
 / | \<\                              <_> 
/ /\ / \)                         /--(___)--\ 
########## Let's go climb.......mo___________om 
                                |             | 
Sincerely yours, Esun(013)      |   Nice To   | 
                                |    Meet     | 
                                |    You!     | 
mailto://esun@accton.com.tw     +_____________+ 
 
. 
+OK 4019 octets 
Received: from ibmsrv.cc.nthu.edu.tw (ibmsrv.cc.nthu.edu.tw [140.114.66.61]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id RAA06609; Tue, 20 Aug 1996 17:32:43 +0800 (CST) 
Received: (from majordom@localhost) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) id IAA43436 for delphichat-outgoing; Tue, 20 Aug 1996 08:30:04 GMT 
Received: from ms2.hinet.net (root@ms2.hinet.net [168.95.4.20]) by ibmsrv.cc.nthu.edu.tw (8.6.12/8.6.12) with ESMTP id RAA32676 for ; Tue, 20 Aug 1996 17:30:03 +0900 
Received: from hntp1.hinet.net ([168.95.152.134]) by ms2.hinet.net (8.7.5/8.7.5) with SMTP id RAA06314 for ; Tue, 20 Aug 1996 17:28:41 +0800 (CST) 
Date: Tue, 20 Aug 1996 17:28:41 +0800 (CST) 
Message-Id: <199608200928.RAA06314@ms2.hinet.net> 
X-Sender: wolfgang@ms2.hinet.net 
X-Mailer: Windows Eudora Light Version 1.5.2 
Mime-Version: 1.0 
To: delphichat@ibmsrv.cc.nthu.edu.tw 
X-UIDL: 840544954.001 
From: Wolfgang Chien  
Subject: Re: [delphi][misc] Dchat1.0 使用心得 
Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw 
Precedence: bulk 
Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw 
Status: RO 
 
At 04:05 PM 1996/8/20 +0800, "Mercy Chen"  wrote: 
>感謝  錢兄(Wolfgang Chien)提供 Dchat 供DelphiChat眾好友使用 ! 
> 每當我使用delphi碰到問題, 第一件想到的是使用Dchat 查詢討論資料庫, 看� 
 
>O否有類似解答, 也因此發現 Dchat 查詢資料時, 需Care 大小寫問題, 例如; 
 
Dear Mercy, 
 
 
到一些問題.