我使用dephi7的客户端/服务器套接字组件将带有tfilestream的文件从客户端发送到服务器。
我可以在服务器端得到文件接收的进度，但是在客户端，我如何得到发送文件的进度？
这是我发送文件的方式：
fstream:=tfilestream.Create(opendialog1.FileName,fmOpenRead);
clientsocket1.Socket.SendStream(fstream);
感谢并感谢您的帮助。
浏览 0提问于2010-05-13得票数 3
回答已采纳
3回答
同时，我也在自学Delphi的数据库架构和MS-Access SQL。我了解如何将表格和DBGrids连接在一起，享受网格中的更改是如何自动编辑、插入、附加、更新、发布到底层表格中的。
我还了解如何打开或执行ADOQuery并在网格中查看结果数据。
我对通过编辑显示查询结果的DBGrid来更改表有更多的疑问。在我的在线搜索中，似乎我找到的所有编辑查询结果的示例都涉及比“SELECT ... FROM oneTable”更复杂的查询。DBGrids似乎只用于处理单个表或显示查询结果。
就我个人而言，当我尝试处理涉及两个或多个表的查询结果时，总是会收到某种类型的错误(键列信息不足、参数丢失或其他消
浏览 1提问于2012-07-02得票数 4
回答已采纳
我们的应用程序使用Delphi10.1中的TWebBrowser控件，并尝试使用OAuth2方法(REST.Authenticator.OAuth.WebForm.Win)登录Google。几年来一直运转良好。
现在谷歌显然认为TWebBrowser控件过时了，并给出了这样的信息：“这个浏览器或应用程序可能不安全。”
我尝试了以下可能的补救办法：
在注册表中设置FEATURE_BROWSER_EMULATION (适用于谷歌地图)
在REST FormCreate事件中设置全局会话头：
UrlMkSetSessionOption(URLMON_OPTION_USERAGENT，UserAgen
浏览 7提问于2021-12-15得票数 1
我们有一个原生程序，用Delphi2007编写，是一个Win32 .EXE文件。
此程序托管.NET运行时，并加载我们编写的一系列程序集。
因此，如果我将可执行文件复制到bin\Debug目录中，配置启动可执行文件.NET项目，就可以在2008年对其进行调试。基本上，在程序加载.NET运行时和加载我的程序集之前，.NET程序集中的断点会显示为一个中空的圆圈，这时它们会变成功能断点，并且会在正确的位置中断，等等。
基本上，如果我使用Visual Studio2008来做这件事，调试是可以工作的。
现在我尝试用Visual Studio2010升级项目，但是没有。断点仍然显示为中空的圆圈，但是现在
浏览 0提问于2010-11-18得票数 2
下面的代码在Delphi7中运行良好。但是，在Delphi2009中，窗体仍然是隐藏的，但任务栏上的按钮现在出现了。
ShowWindow(Handle, SW_HIDE);
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW );
ShowWindow(Handle, SW_SHOW);
上面的代码在FormCreate方法中调用。
浏览 0提问于2009-03-25得票数 8
回答已采纳
我如何使这段代码更快？该字符串可以包含“、.?#”等字符，也可能包含其他字符。
Const Nums = ['0'..'9'];
function CleanNumber(s: String): Int64;
Var z: Cardinal;
begin
for z := length(s) downto 1 do
if not (s[z] in Nums) then Delete(s,z,1);
if s = '' then
Result := 0 else
Result := StrToInt64(s);
en
浏览 0提问于2019-05-20得票数 1
回答已采纳
我如何使这段代码更快？该字符串可以包含“、.?#”等字符，也可能包含其他字符。
Const Nums = ['0'..'9'];
function CleanNumber(s: String): Int64;
Var z: Cardinal;
begin
for z := length(s) downto 1 do
if not (s[z] in Nums) then Delete(s,z,1);
if s = '' then
Result := 0 else
Result := StrToInt64(s);
en
浏览 0提问于2019-05-19得票数 2
回答已采纳
为这件事挣扎了一段时间。我们有一个具有图像类型数据的旧表( Server)。我想收到短信。
到目前为止，这就是我所做的。
尝试转换或铸造它(不允许)
尝试通过调用SP将数据导入delphi (我已经将数据分配给了一个变体)
查看RTF到text函数(在这里找到了一些东西，如果我能将图像数据放入字符串中)。
这是我到目前为止掌握的密码。它现在附加到一个按钮单击(将在一个服务中运行)。我认为对report的分配是不正确的，SetString也可能是不正确的。我甚至不确定我是否会以正确的方式去做这件事。
var
report: array of byte;
s: string;
浏览 0提问于2011-03-14得票数 0
回答已采纳
我正在使用Dephi XE5，并创建一个需要运行在安卓、ios和win32上的Fire猴子项目。
我正在尝试使用BitMap.CreateFromFile()加载位图。我向项目中添加了一个“图像”文件夹，并将图像存储在该文件夹中。我还将图像添加到项目中，以便它们出现在视图中。
问题是当我试图用
TBitmap.CreateFromFile('images/myimage.jpg')
我在win32上的应用程序给了我以下错误消息：
无法打开文件"C:...\Win32\Debug\images\myimage.jpg“
这表明构建过程没有将图像文件复制到Debug文件夹中
浏览 6提问于2013-11-18得票数 0
我正在使用德尔菲XE3。我只是想知道Delphi函数，比如Windows，是否有两个版本，一个用于AnsiString，一个用于UnicodeString？
例如，SetString过程：
procedure SetString(var S: String; Buffer: PChar; Length: Integer);
它有两个版本，一个是：
procedure SetString(var S: AnsiString; Buffer: PAnsiChar; Length: Integer);
另一个版本是：
procedure SetString(var S: UnicodeString;
浏览 2提问于2019-10-27得票数 1
回答已采纳
Delphi2009XML数据绑定向导无法处理包含complexContent声明的简单XSD (无效指针操作)。
这是一个bug还是已知的限制？
示例：
<?xml version="1.0" encoding="utf-8"?>
<xsd:schema targetNamespace="http://example.org/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
elementFormDefault="qualified"&
浏览 5提问于2009-05-19得票数 2
回答已采纳
我在RadStudio10.3.2上使用dephi防火墙在android 9上进行测试
我想删除TListView中的最后一项。但在我删除之前，我想要求确认，然后删除。
为此，我构建了下面的示例代码，它有1个TListview、2个Speed按钮、1个矩形和1个标签。
矩形可见为false，因此当用户滑动listviewitem时，它将显示delete按钮。在“删除”按钮中，我将取消“删除”，并将该矩形与问题一起显示，如果单击“是”，则删除该项。问题是，listviewitem删除按钮永远不会消失，当用户再次单击屏幕时，应用程序就会崩溃。
下面的图像说明了该操作
unit Unit1;
浏览 1提问于2020-04-11得票数 2
回答已采纳
我使用Delphi10.1柏林更新2 Trail版本来开发iOS移动应用程序。我正在使用machine和machine，使用Xcode 8.1，在我的windows机器上使用iPhoneSimulator 10.1SDK和iPhone10.1SDK。还有iPhone5s和OS10.1。
当我试图在手机上运行这个应用程序时，我发现无法安装软件包。(e800004b).错误。
另外，当我试图使用模拟器时，模拟器不会显示在Target节点中。
如果我使用Xcode 7.3.1，我可以在模拟器中运行这个应用程序。请帮助我运行移动应用程序。
浏览 0提问于2016-12-11得票数 1
嗯，我对Delphi和一般的离线编程都是新手(除了标准的C++)，最近我买了一份Delphi的拷贝，并且对开始使用它有点兴趣。我在某处读到它使用Pascal，但我搞不清它是使用Pascal编写的，还是使用您在其中编写的语言中的Pascal。不管怎样，我想知道是否有人有任何好的资源来开始学习。无论是书籍还是在线文章/论坛都是很棒的。这是一个整洁的小社区，所以我计划利用它。
浏览 0提问于2009-07-19得票数 6
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
