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/

阿里雙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购物狂欢节

大陸2013雙11購物節即將登場!

20131111雙11狂歡購物節 (天貓)

雙11狂歡購物節其實是2009年由淘寶COO以及團隊想出來的「網上購物節」,單純的想法卻在未來的幾年掀起很大的購物風潮~從2009年5200萬(人民幣)銷售額;2010年9.36億;2011年33.6億。到2012年191億~

然而1111狂歡購物節的由來是跟1111光棍節是完全沒有任何關係的~ 冏rz

今年淘寶的目標是300億~拭目以待!
不知道今年真正創下的新記錄會是多少?不過光是看到淘寶的戰情中心真的就令人熱血沸騰了!也許台灣也可以塑造一個購物節,把餅做大。把單店、單站的促銷炒熱成全民運動也不錯!

2013雙11