POS系統介接與信用卡機連線的作法

Delphi或C#與信用卡連接的方式,有直接透過com port通訊或是透過呼叫exe的方式,利用in.txt、out.txt做溝通。然後回傳信用卡卡號/授權碼/刷卡金額等資訊。
示範一下Delphi與C#如何做信用卡線上刷卡。
Delphi

  public
    { Public declarations }
    ExecInfo : TShellExecuteInfo;   // use shellapi
    i:integer;
  end;
procedure TForm1.Button1Click(Sender: TObject);
var 
  s:String;
  ts:TStringlist;
begin
  ZeroMemory(@ExecInfo,SizeOf(ExecInfo));
  with ExecInfo do begin
    cbSize := SizeOf(ExecInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    lpVerb := 'open';
    lpFile := 'ecr.exe'; 
      Wnd := self.Handle;
    nShow := SW_HIDE; 
  end;
  s:='xxxxxxxxxxxxxxxxxxxx'; // 填上信用卡的溝通格式
  ts := Tstringlist.Create;
  ts.Clear;
  ts.Add(s);
  ts.SaveToFile('in.dat');
  ts.Free; 
  ShellExecuteEx(@ExecInfo);
  deletefile('out.dat');
  caption := '刷卡中...';
  timer1.Enabled := True;
  i:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var ts1:Tstringlist;
sstatus,smoney,scard,sappno:String;
begin
  i:=i+1;
  if fileexists('out.dat') then begin
     Timer1.Enabled := false;
     ts1 := Tstringlist.Create;
     ts1.LoadFromFile('out.dat');
     if ts1.Count >0 then begin
       // 讀入檔案,解析格式
     end;
     ts1.Free;
  end;
end;
string dir = System.Windows.Forms.Application.StartupPath;
[DllImport("user32.dll", EntryPoint = "FindWindow", CharSet = CharSet.Auto)]
private static extern IntPtr FindWindow(string lpClassName, string lpWindowName);
        private void uForm1_Load(object sender, EventArgs e)
        {
            try
            {
                if (File.Exists(dir + "/out.txt")) //刪除out.txt
                    File.Delete(dir + "/out.txt");
                string code = "";  // in.txt格式
                using (StreamWriter sw = new StreamWriter(dir + "/in.txt"))   //小寫TXT     
                sw.Write(code);    
                IntPtr PDC = FindWindow(null, "ecr");  //開啟PosDataCom
                if (PDC == (IntPtr)0)
                {
                    try
                    {
                        Process p = new Process();
                        p.StartInfo.FileName = dir + "/ecrnccc.exe";
                        p.StartInfo.WorkingDirectory = dir;
                        p.StartInfo.UseShellExecute = false;
                        p.StartInfo.RedirectStandardInput = true;
                        p.StartInfo.RedirectStandardOutput = true;
                        p.StartInfo.RedirectStandardError = true;
                        p.StartInfo.CreateNoWindow = true;
                        p.Start();
                    }
                    catch (Exception exp)
                    {
                        return;
                    }
                }
               
               
                this.timer1.Enabled = true;
               
            }
            catch (Exception ex)
            {
                throw new Exception(ex.Message);
            }
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            if (times == 5)
            {                
                times = 0;
                i++;
                if (i > 4)
                {
                    i = 0;
                    try
                {
                if (File.Exists(dir + "/out.txt"))
                {
                   
                    using (StreamReader sr = new StreamReader(dir + "/out.txt"))     //小寫TXT
                    {
                        String line;
                      
                        if ((line = sr.ReadLine()) != null)
                        {
                          // 解析
                        }
                        else
                            return false;
                        return true;
                    }
                }
                return false;
            }
            catch
            {
                return false;           
            }
                }
            }
            times++;
        }

遠振推SSD虛擬主機

 

早上看到一直使用的虛擬主機商遠振的新廣告,推出SSD硬碟的新主機。

強調

  • 台灣罕見不限 MySQL 資料庫、FTP、Email、附加網域,最適合架設多網站的全功能虛擬主機方案!
  • 保留本機一份加四份異機備份,資料保障領先業界
  • 立即搬家享優惠,首年八折,再享免費搬遷服務

一直很喜歡它的主機服務。推給大家

遠振主機

網址:

https://host.com.tw

PChome網址購買後設定

domain11

 

1‧ 在上次購買網址後,如果付款成功入帳,就可以進入管理我的網址

domain13

2. 進入後,可以看到還沒付錢的網址。有付款成功的就會出現在網址清單下,我們可以進入DNS設定與修改的進入開始設定

domain14

 

3. 自管DNS是如果有自己的DNS Server可以指定domain15

 

4. 另外一種是DNS交給PChome管理~如果你要轉到特定網址的話倒是可以直接用它

domain165. Page Parking是申請.tw比較特別的功能,twnic貼心提供申請.tw網域的朋友快速架站的方式。

 

購買網址怎麼買?PCHome範例(購買篇)

domain01
1. 進入PChome的買網址網站 http://myname.pchome.com.tw/
domain02
2. 在輸入你想購買的網址名稱輸入網址 ex: delphitaiwan 然後勾選要申請的域名後,按下購買
domain03
domain04
3. 因為有點選.net.tw跟.org.tw,所以會跳出需有電信執照、財團法人或非營利社團法人等資格才能申請。我們只要申請idv.tw的就將其他勾掉。金額就只剩400(你會發現不同域名有不同金額)~往下拉到下面按下一步
domain05
4. 接著會要求會員資料,沒有的話就申請一個
domain06

domain07
5. 接下來會請您輸入註冊網域的基本資料,如果有申請過可以點顯示最後一次註冊資料帶入最後一次資料。然後域名確定拼字無誤、 我已閱讀 PChome客戶個人資料蒐集應告知事項二個看完沒問題請打勾。
domain08

domain09
6. 最後出現訊息核對無誤後就按以上確認無誤,進入付款

domain10

7.最後選擇付款方式付款即完成

 

透過.htaccess設定虛擬主機上傳限制

.htaccess是apache上的設定檔,一般都會開放讓使用者設定。.htaccess可以設定的很多,盜連、檔案列表、轉址….包羅萬象,不過今天只是要告訴大家修改上傳限制的方式而已,新增一個.htaccess的檔案,透過php_value可以修改php.ini的設定,例如我要把遠振虛擬主機上的某個網站設定上傳限制10M,我可以丟個.htaccess檔案,裡面放2行就可以了!但是其他網域就不變。

php_value upload_max_filesize 10M
php_value post_max_size 10M

想知道SEO做的好不好?SEO分析網站

網站架設後,常常不知道針對搜尋引擎最佳化(SEO)是否做的好嗎?
介紹二個網站分析工具,可以針對訪客、內容、搜尋引擎最佳化(SEO)、網域名稱等來為網站評分,提供詳細的改善建議,幫網站站長們節省時間,改善後的網站能夠在搜尋引擎裡取得更好的搜尋排名,甚至是 PR 值。

1.SEOCert
http://www.seocert.net/

2.網站審評woorank
http://www.woorank.com/tw/

【阿里紀錄片:揚子江大鱷】

前阿里巴巴外籍員工porter,2年時間剪輯大作。獨家揭秘阿里巴巴早期的艱難生存經歷。馬雲的心路歷程,所有資料首次公映,一定要看!
閱讀全文〈【阿里紀錄片:揚子江大鱷】〉

阿里巴巴五坪戰情室曝光影片

這次雙十一出現看起來很像太空總署發射中心的阿里巴巴總部戰情室,其實只有五坪大小。但是卻是掌握所有淘寶、天貓、支付寶等網站加入會員、流量、成交金額等數據的戰情中心。

阿里雙11狂歡購物節5小時49分破100億人民幣

阿里集團下的天貓、淘寶在今天凌晨開始了一年一度的1111(雙11)購物狂歡節。

花了5小時49分成交額突破100億(第1分鐘破1億;6分7秒破10億;13分22秒破20億;20分51秒破30億….)

螢幕快照 2013-11-11 上午8.50.34

與去年的雙11相比,100億的速度提早了7小時就完成了,真是恐怖的數字。

雙11狂歡購物節

不容忽略的行動商務的部份,也在4分10秒破了1億。

手機淘寶交易額
手機淘寶交易額 行動購物時代來臨

寫文章的同時,已經是121億了!

8小時42分121億

相關連結:

Tech2Live

天猫11.11购物狂欢节