學習紀錄

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);
    getNVBitImage(s_bufNV[0], s_lngTargetHeight, s_lngTargetWidth, s_strFileName);

s_lngTargetWidth := s_lngTargetWidth DIV 8;
s_lngTargetHeight:= s_lngTargetHeight DIV 8; {+AnsiChar(cb9.ItemIndex+1)}
SendComString(#28#113#1+Ansichar(s_lngTargetWidth MOD 256)+Ansichar(s_lngTargetWidth DIV 256)
+Ansichar(s_lngTargetHeight MOD 256)+Ansichar(s_lngTargetHeight DIV 256));

for i:= low(s_bufNV) to high(s_bufNV) do
  SendComString(Ansichar(s_bufNV[i]));

    xResult := SendComString(#29#7#2#1#1); //BB聲
  end else
  begin
    xResult := False;
    Showmessage('找不到WPOCmd.dll');
  end;
end;

#28#113#1 後面設定圖片大小 +圖片 a

#28#113#2 後面設定圖片大小 +圖片 b

這樣子的寫法 一次只能傳一張圖而已 且永遠是第一張圖XD..

應該是要

#28#113#2

用迴圈 i

後面設定圖片大小 +圖片 i

結束回圈

這樣才可以一次性的上傳兩張以上的圖檔