delphi图片处理 插件,DELPHI插件

如何对delphi中的图片进行加密，并且delphi中的Timage控件要动态加载图片不循环？哪里可以找到delphi的图形控件？也可以使用函数在加载图片前确认文件是否存在，如下:if(预测图片路径)thenbegin//如果文件存在，加载图片Image1。Picture.LoadFromFile(预测图片路径)；endelsbegin//如果找不到图片。

Delphi没有一个叫graphics的控件，但是有一个叫tgraphical的类。在图形单元中，tgraphical是所有图像对象的祖先，如Tbitmap、TIcon，它们都是从tgraphical继承而来的。有关详细信息，请参见帮助。Delphi没有一个叫graphics的控件，只有一个叫tgraphical的类。在图形单元中，当您需要显示一般图像时，可以在附加下使用图像控件。

/Image-2/Indelphilanguage，使图像控件根据图片大小自动缩放显示的步骤如下:1 .从ToolPalette面板中找到TImage控件，并将其拖动到窗口:2。选择图像控件，调整到合适的大小，并设置其属性:Anchors属性:set使图像控件的大小随着窗体的变化而变化，并保持与左边一致。Stretch设置为True:该属性是关键设置。当该属性设置为True时，图像的图像可以随着大小的变化而自动拉伸或压缩。帮助手册中图像控件的拉伸属性描述如下:3 .完成以上设置后，就可以编写相关代码了。

属性Stretch :/ image-3/image控件为True。Stretch:True就够了，但是这可能会导致变形。图像控件的属性Stretch:True有另一个问题。如果图像大于图像区域，它会自动缩放并显示。但如果比图像面积小，图像就会按照图像的大小拉伸显示，也很难看。你可以判断，如果图片格式小于1024*768，就不会设置这个属性。

可以对图片的文件头进行加密，例如，程序表单1。按钮1点击(发送方:对象)；vara，b:TMemoryStream；c:char；Begin// Encrypt a:TMemoryStream。创建；乙:TMemoryStream。创建；a . LoadFrom)；//加载图片a .位置:0；丙:‘甲’；//相当于改变头文件a.Write(c，

fs1。尺寸)；//这里怎么简化(不需要复制？)b . save to)；//保存图片a . free；b .免费；//用完释放//解密a:tmemorystream . create；b:tmemorystream . create；a . LoadFrom)；a .职位:1；//去掉前面的Ab。CopyFrom(fs1，

应该没有循环吧？双击名称会触发读取指定目录中具有指定名称的三张图片的动作。分别显示在三幅图像中。如果其中一张图片找不到，跳过。你可以使用类似于:tryImage1。Picture.LoadFromFile(预测图像路径)；Exceptone:EFOpenErrordobegin//如果找不到图片。

如果你想避开暗示。也可以使用函数在加载图片前确认文件是否存在，如下:if(预测图片路径)thenbegin//如果文件存在，加载图片Image1，Picture.LoadFromFile(预测图片路径)；endelsbegin//如果找不到图片。