目前分類：工作歷程 (2)
- Aug 12 Thu 2021 10:17
測試影音上傳
- Feb 07 Fri 2014 16:08
ESC/POS 一次多張logo圖的用法
If Length(OpenDialog.FileName) > 4 then
begin
s_lngTargetHeight := 0; s_lngTargetWidth:=0;
StatusBar.Panels.Items[1].Text := '上傳中，請勿關閉';
APPLICATION.ProcessMessages;
s_strFileName := OpenDialog.FileName;
s_lngReturn := getImageSize(s_strFileName, s_lngTargetHeight, s_lngTargetWidth);
If s_lngReturn > 0 Then
begin
SetLength(s_bufNV, s_lngReturn);
