Unable to rename C:\Program Files (x86)\Borland\Delphi7\Bin\delphi32.$$$ to
‘C:\Program Files (x86)\Borland\Delphi7\Bin\delphi32.dro
1 C:\Program Files (x86)\Borland\DelphiX 唯讀屬性勾選掉
2 使用系統管理員身分執行
月份: 2014 年 9 月
Delphi XE7 開放試用下載了！
昨天看到Jim McKeeth發出訊息，RAD Studio XE7開放試用下載了！
大家可以到 http://www.embarcadero.com/products/delphi 去看官方的資料～
不過上次聽QCom的預覽研討會時，李維大師展示的FireUI又是讓人驚艷的技術了
Delphi寫餐飲硬體標準ESC/POS與醫療檢驗儀器連線ASTM通訊有感
下午到舊公司討論電子發票格式相關問題，跟舊同事聊天聊到電子發票支援的硬體時，舊同事也抱怨到POS相關的硬體廠商雖然”宣稱”支援”標準的ESC/POS指令”，但實測起來每台機器還是會呈現出不同的結果。
突然想到之前在做醫療檢驗儀器連線時，即使設備商提到是使用ASTM格式傳輸，但不管是尿液、血液…..適用什麼immuLite、AXSYM、Alastat….最後在做連線通訊時也是不一樣。
這也是做軟硬體結合時，寫程式的悲哀吧XDDD不過寫出來時又是另一種雀躍的心情了～～
Delphi 電子發票開發
業務上的需求要開發電子發票的模組，前同事給了Delphi 6的範例程式，經過了一番修改後，終於在 Delphi XE3能正確使用了。
主要的問題如下：
1) Char改 AnsiChar
2) PChar改 PAnsiChar
3) String 改 AnsiString
4) XE3 Length取長度時，也需要先以AnsiString才會正確。
主要加密元件宣告
[pascal]
procedure QRCodeINV(a_InvoiceNumber: AnsiString;
a_InvoiceDate: AnsiString;
a_InvoiceTime: AnsiString;
a_RandomNumber: AnsiString;
af_SalesAmount: Double;
af_TaxAmount: Double;
af_TotalAmount: Double;
a_BuyerIdentifier: AnsiString;
a_RepresentIdentifier: AnsiString;
a_SellerIdentifier: AnsiString;
a_BusinessIdenti: AnsiString;
a_AESKey: AnsiString;
a_output: pAnsiChar;
var ai_errorCode : Integer) STDCALL; external ‘QRDLL.DLL’;
[/pascal]
附上電子發票開發需要文件：
Delphi下載網路圖片且顯示Image
把網路上的圖片顯示在Image如何做到?
[pascal]
var
MS: TMemoryStream;
JPEG: TJPEGImage;
Url: String;
I: Integer;
begin
ProgressBar1.Visible := True;
MS := TMemoryStream.Create;
try
JPEG := TJPEGImage.Create;
try
Url := edit1.text;
MS.Clear;
try
IdHTTP1.Get(Url, MS);
except
end;
MS.Position := 0;
JPEG.LoadFromStream(MS);
Image1.Picture.Assign(JPEG);
Application.ProcessMessages;
finally
JPEG.Free;
end;
finally
MS.Free;
end;
end;
[/pascal]