小编LuF*_*ang的帖子

我使用 Delphi XE 和 TWICImage 类进行图像处理。我想知道是否有办法使用 TWICImage 设置 jpeg 压缩质量？

procedure TfrmMain.Button2Click(Sender: TObject);
var
  wic: TWICImage;
begin
  wic := TWICImage.Create;
  try
    wic.LoadFromFile('sample-BMP.bmp');
    wic.ImageFormat := wifJpeg;
    // ... before saving I want to set low compression quality
    wic.SaveToFile('sample-JPG.jpg');
  finally
    wic.Free;
  end;
end;

我有一个Windows Delphi应用程序,通过通知图标可以访问"开始"和"停止"菜单项.点击"开始"后,我需要执行以下操作(我看到实现):

1. ThreadMonitor:第一个线程正在等待指定文件夹中指定文件的出现.

2. ThreadParse:一旦文件出现,它应该被转移到另一个线程(用于解析内容)并继续监视下一个文件.

3. ThreadDB:解析完所有数据后,将它们保存到MySQL DB中.(具有活动数据库连接的另一个后台线程？)

4. ThreadLog:如果步骤1-3中有任何错误,请将它们写入日志文件(另一个后台线程？)而不中断步骤1-3.

也就是说,事实证明,像连续输送机这样的东西只能通过按下Stop来停止工作.我应该从OmniThreadLibrary的各种方法中使用什么？

有没有办法FormStyle = fsMDIChild在主窗体上显示具有框架的MDI子窗体()Align = alClient？
在主窗体上创建框架:

Frame := TfrCalendar.Create(Self);
Frame.Parent := Self;   

在主窗体上创建MDI子窗体:

if Assigned(FMDIRef)
then
  FMDIRef.BringToFront
else begin
  FMDIRef := TFReference.Create(Application);
  FMDIRef.Show;
end;

在此之后,子表单不可见.如果您不创建框架,则表单可见.如果您首先显示子窗体,然后在主窗体上创建一个框架,则子窗体将再次变为不可见.