我需要从我的Delphi应用程序发送电子邮件.我需要的是一个WYSIWYG编辑器,我可以在应用程序中使用该编辑器以HTML格式创建电子邮件正文.有任何想法吗?谢谢,彼得.
如何让Intraweb XI应用程序使用其Windows登录凭据对用户进行身份验证?该应用程序在Windows服务器上作为服务运行.
我们只需要允许网络用户访问我们的一些Intraweb应用程序.
我们目前使用Rad Studio 2007,并期待很快升级到Delphi XE!
有人知道我们如何看到安装Rad Studio 2007时序列号的用途吗?
问候,彼得
如何使用Delphi从字符串中删除引号?
防爆.我需要删除"A","B","C","D"中的所有引号,给出A,B,C,D的结果.我试过了
MyVar := jclStrings.StrRemoveChars(sRegions, [#34]);
但到目前为止没有运气.
谢谢,彼得
有没有更快的方法来迭代ADO数据集而不是
while (not ADOQuery1.Eof) do
begin
/* Do something */
ADOQuery1.Next;
end;
Run Code Online (Sandbox Code Playgroud)
我需要扫描大约9000个项目的数据集,并且只提取与预定义的分支编号集匹配的记录.
我有一个FileEventObjects := TObjectList.Create(True);包含一个或多个对象的TObject列表().对象需要保留在列表中,直到它们被处理.(对象列表在应用程序的持续时间内存在.)
我不完全确定如何从列表中删除已处理的对象.
如果我这样做,对象是否会被"释放" FileEventObjects.Delete(i)
是否有任何有用的TObjectLists实例的链接?
问候,彼得.
我有一个线程用于ReadDirectoryChangesW在文件夹中添加或删除文件时通知我.
对于每个新图像,我打开文件并创建图像的缩略图.但是,在将文件完全复制到目标文件夹之前,我会收到通知,在这种情况下,我只会获得部分缩略图.(文件从远程位置复制到中央服务器,网络在高峰时间可能会变慢.)
我确实检查文件是否正在使用,但这似乎不适用于图像文件.
HFileRes := CreateFile(pchar(Filename), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) ;
Result := (HFileRes = INVALID_HANDLE_VALUE);
if (not Result) then
CloseHandle(HFileRes) ;
Run Code Online (Sandbox Code Playgroud)
我的问题是:有没有办法检测文件何时被完全复制,或者我只是等到文件大小或上次修改时间自上次检查后没有改变?
我们正在考虑从Rad Studio 2007升级到Delphi XE,并且需要让老板相信成本是合理的.我很感激能够帮助我回答这个问题的评论:"Delphi XE带来了哪些内容让升级成为值得的?"
问候,彼得
我需要在给定目录中显示图像的缩略图.在将图像加载到图像组件之前,我使用TFileStream来读取图像文件.然后将位图的大小调整为缩略图大小,并分配给TScrollBox上的TImage组件.
它似乎工作正常,但是对于较大的图像,速度会慢下来.
是否有更快的方法从磁盘加载(图像)文件并调整它们的大小?
谢谢,彼得
如何在Delphi中实现以下Windows功能?
HRESULT URLDownloadToFile(
LPUNKNOWN pCaller,
LPCTSTR szURL,
LPCTSTR szFileName,
DWORD dwReserved,
LPBINDSTATUSCALLBACK lpfnCB
);
Run Code Online (Sandbox Code Playgroud)
URLDownloadToFile功能:http://msdn.microsoft.com/en-us/library/ms775123( VS.85).aspx
这里提出了提示我的问题.
使用卷曲顶部的curlpp从youtube下载flv - 视频无法播放
问候,彼得.
delphi ×10
ado ×1
dataset ×1
delphi-2007 ×1
delphi-xe ×1
download ×1
editor ×1
file ×1
file-in-use ×1
filestream ×1
html ×1
image ×1
intraweb ×1
license-key ×1
quotes ×1
string ×1
thumbnails ×1
tobjectlist ×1
upgrade ×1
video ×1
wysiwyg ×1