1

我创建了一个隐写术(在位图中隐藏文本)应用程序,我想添加一个进度条来显示该过程的工作时间。

procedure TForm1.Button2Click(Sender: TObject);
var
   x,y,i,currentBit,bitInChar,currentChar,currentPixel,newPixelValue,pixelsToSkip,skippedPixels: integer;
   pixels: PByteArray;
   bmp: TBitmap;
   stringToHide: string;
begin
if Image1.Picture.Bitmap=nil then
showmessage('gambar belum dipilih')
else
   memo1.lines.clear;
   stringToHide := AntiKeyLoggerMemo1.text;

   stringToHide:= stringToHide + chr(terminator); // add terminator to indicate end of text
   Image2.Picture.Assign(Image1.Picture.Bitmap);
   bmp := Image2.Picture.Bitmap;
   x := 0;
   y := 0;
   pixels := bmp.ScanLine[y];

   // iterate over the chars in the string we want to hide
   for i := 1 to length(stringToHide) do
   begin
      currentChar := ord(stringToHide[i]);
      memo1.lines.append('');
      memo1.lines.append('Sembunyikan ' + stringToHide[i] + ' - Ascii ' + inttostr(currentChar) + ' (biner ' + toBinary(currentChar) + ')');
      // iterate over the bits in the current char
      for currentBit := 7 downto 0 do
      begin
         begin
            if (i = 1) and (currentBit = 7) then
               pixelsToSkip := 0
            else
               pixelsToSkip := 1;
         end;
         for skippedPixels := 1 to pixelsToSkip do
         begin
            inc(x);
            if x = bmp.width then
            begin
               x := 0;
               inc(y);
               if (y = bmp.height) and (i < length(stringToHide)) then raise Exception.create('gambar terlalu kecil');
               pixels := bmp.ScanLine[y];
            end;
         end;
         bitInChar := getBit(currentChar, currentBit);
         // get the value of the pixel at x,y
         currentPixel := pixels[x];
         // set the least significant bit of the pixel to the bit we read from the char
         newPixelValue := setBit(currentPixel, 0, bitInChar);
         pixels[x] := newPixelValue;
         memo1.lines.append('Bit karakter ' + inttostr(currentBit) + '=' + inttostr(bitInChar) +
            ', pixel ke ' + inttostr(x) + ',' + inttostr(y) + ' desimal ' + inttostr(currentPixel) + ' (biner ' + toBinary(currentPixel) + ') ' +
            ' desimal baru ' + inttostr(newPixelValue) + ' (biner ' + toBinary(newPixelValue) + ')');

            end;
         end;
   memo1.lines.append('All done!');
   Button4.Enabled :=True;
   Button2.Enabled:=False ;
   Button5.Enabled:=True;
   Button1.Enabled:=False;
   AntiKeyLoggerMemo1.ReadOnly:=True;
     end;   

如何为该过程制作进度条?我必须把命令进度条放在哪里?

4

1 回答 1

6

首先,您需要将代码移动到它自己的线程中。否则 GUI 将不会响应。您还必须确保代码是线程安全的。

无论如何,在线程内部,您需要不时更新进度条。如果碰巧你有一个外循环和一个内循环,其中外循环每秒迭代一次左右,你可以更新那个地方的进度条。如果您只有一个大循环,您可能不想在每次迭代时更新进度条;例如,一次迭代可能仅在几毫秒内完成。

相反,您可以确保每秒更新一次进度条,左右。为此,您可以使用GetTickCount

tc := GetTickCount;
if Terminated then Exit;
if tc - oldtc > 1000 then
begin
  PostMessage(FProgressBarHandle, PBM_SETPOS, TheNewPosition, 0);
  oldtc := tc;
end;

这也显示了一种更新进度条的方法——只需发布一条消息!您还可以定义自己的消息并将其发送到主要来源。

于 2012-12-09T19:38:26.767 回答