Delphi 判断文件是否被占用

Delphi开发的模型飞机测控平台 附源代码，里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧，还包括了许多操作函数，比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。 　　由于有调试目的，如果要求发送字符格式的数据，就直接发送用户输入的字符串，其他情况下，都是发送打包好的数据矩阵。 　　调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥，目的是把发送的数据保存在各个线程中。 　　在此提示： 由于传输系统总会有一定的吴码率，那么为了避免轨迹图出现问题，例如坐标范围过大需要除去粗大误差，考虑到模型飞机的飞行速度不会超过10m/s，考虑到数子传输系统的下传速度，设定如果位置变化超过20m就去掉。

delphi 获取网页源码

Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。

Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j:integer; 　　begin 　　 j:=0; 　　 For i := 1 to 10 do 　　 begin 　　 if i mod 2 =0 then 　　 Continue; 　　 j := j+i; 　　 Edit1.text := IntToStr(j); 　　 end; 　　end;

Delphi 把时间格式转换成字符串来显示，在运行的程序界面中，选择一个指定的日期后，可将此日期转换成字符串格式的，也就是不再具备时间的属性，但是自身已经变为字符串了。人可以识别，但机器不再识别为时间了。 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 DateTimePicker1.Date:=now(); 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 edit1.Text:=datetostr(DateTimePicker1.Date); 　　end;

Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。

Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 LogBrush:TLogBrush; 　　begin 　　 LogBrush.lbStyle:=BS_HATCHED; 　　 LogBrush.lbColor:=clRed; 　　 LogBrush.lbHatch:=HS_DIAGCROSS; 　　 Canvas.Brush.Handle := CreateBrushIndirect(LogBrush); 　　 Canvas.FillRect(ClientRect); 　　end;

Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示，其实在Window7环境下同样也可枚举到进程及页面内存信息，可以列举所有正在运行的进程，正在运行的所有进程，鼠标双击有进程的详细信息，可以得到某一进程的模块、页面等信息，以及内存映射的文件名。 　　如果列举进程出错，请确认是否安装了PSAPI.DLL。 　　本程序除了列举进程外，还可列举设备信息。运行效果请参见截图所示。

Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;