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 使用系統管理員身分執行
大型網站架構..net 架構師.rabbitMQ.redis.行動開發.APP開發教學.PHP Laravel開發..net core C# 開發.架構師之路.Delphi開發.資料庫程式.進銷存.餐飲POS系統
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 使用系統管理員身分執行
昨天看到Jim McKeeth發出訊息,RAD Studio XE7開放試用下載了!
大家可以到 http://www.embarcadero.com/products/delphi 去看官方的資料~
不過上次聽QCom的預覽研討會時,李維大師展示的FireUI又是讓人驚艷的技術了
下午到舊公司討論電子發票格式相關問題,跟舊同事聊天聊到電子發票支援的硬體時,舊同事也抱怨到POS相關的硬體廠商雖然”宣稱”支援”標準的ESC/POS指令”,但實測起來每台機器還是會呈現出不同的結果。
突然想到之前在做醫療檢驗儀器連線時,即使設備商提到是使用ASTM格式傳輸,但不管是尿液、血液…..適用什麼immuLite、AXSYM、Alastat….最後在做連線通訊時也是不一樣。
這也是做軟硬體結合時,寫程式的悲哀吧XDDD不過寫出來時又是另一種雀躍的心情了~~
業務上的需求要開發電子發票的模組,前同事給了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]
附上電子發票開發需要文件:
把網路上的圖片顯示在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]