procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);var  i,j:integer;  strAuthorization,strAddr,strDirFile:string;//授权信息begin  UserName:= anonymous

千辛万苦才查阅资料写出来的，自己高兴一下。转换类支持8/16位，6000/8000采样率，ADPCM,muLaw,aLaw多种格式的Vox转换。很奇怪的是，华为的ICD平台录下来的音格式上有微小不同，一个平台的语音用我们这个程序可以正常转换，但另一个平台的录音转换完之后却丢失0轴以上的波形，但听起来声音基本一样。估计2个平台选用的录音卡有所不同。可是，用CoolEdit却可以正常显示2个语音的波形

摘　要：Delphi中实现多程序图标一法关键字：图标类　别：用户界面在Delphi中我们可以静态或动态地创建窗体，所谓静态创建窗体是指在设计程序时一并建好窗体，动态创建是指在程序运行时根据需要使用Create方法创建新窗体,然后使用Show方法来显示窗体。但令人遗憾的是，在显示非启动窗体时，不论用户在程序中创建多少个窗体，每个应用程序只能有一个程序图标，在Windows的任务条上只显示一个程

const  WM_MouseEnter = $B013;  WM_MouseLeave = $B014;type  TfrmMain = class(TForm)       .       .    Timer1: TTimer;    procedure Timer1Timer(Sender: TObject);  protected    procedure WMMouseEnter(va

用VS.NET 2003开发的基于.NET 1.1的WebService，可以用Delphi7正确调用。但同样的方法调用VS.NET 2005开发的基于.NET 2.0的WebService时却发生了错误。查阅资料 http://www.community.borland.com/article/borcon/files/4132/paper/4132.html 发现原来Delphi7客户端虽然支

截取屏幕，并保存为JPEG文件格式procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var  RectWidth,RectHeight:integer;  SourceDC,DestDC,Bhandle:integer;  Bitmap:TBitmap;  MyJpeg: TJpegImage;  S

Delphi基本图像处理代码//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var  i, j, Gray, Azimuthvalue, R, G, B: integer;  SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin  for i :