小编ae1*_*080的帖子

在按下dbnavigator删除按钮后,如何根据决定中止删除记录?

dbnavigator按下删除按钮后,我可以根据决定中止删除记录吗?我检查了beforeAction事件

if Button = nbDelete then  
  //check if not OK then

Button := nbCancel;
Run Code Online (Sandbox Code Playgroud)

但它不起作用.任何帮助?

我正在使用 DelPhi XE2, anyDac Components

delphi ttnavigator delphi-xe2 anydac

6
推荐指数
1
解决办法
4304
查看次数

如何在执行DBExpress查询时保持程序对用户输入的响应?

ibdac查询(http://www.devart.com/ibdac/components.html)有一个函数executing,我可以写一些像:

 while MyQuery.Executing do
 begin
   application.ProcessMessages;
   Sleep(1);
 end;
Run Code Online (Sandbox Code Playgroud)

如何使用dbexpress查询实现相同的代码(没有类似的功能)?

delphi dbexpress

3
推荐指数
1
解决办法
1539
查看次数

在Delphi XE中使用Indy发送电子邮件时出现STARTTLS错误

我正在尝试使用以下代码从我的应用程序发送电子邮件:

  Var
  MailMessage : TIdMessage;
  SMTP        : TIdSMTP
   .
   .
   .
 //setup SMTP
 SMTP.Host := 'smtp.gmail.com';
 SMTP.Port := 25;
 //setup mail message
 MailMessage.From.Address := 'fromMe@gmail.com';
 MailMessage.Recipients.EMailAddresses := 'ToSomeOne@hotmail.com';
 MailMessage.Subject := 'Test';
 MailMessage.Body.Text := 'Hello, It is Just for test';

 SMTP.Connect;
 SMTP.Send(MailMessage);
Run Code Online (Sandbox Code Playgroud)

当我运行它时,它会生成以下错误

**ERROR: Must issue a STARTTLS command first. i29sm34080394wbp.22**
Run Code Online (Sandbox Code Playgroud)

我怎么解决这个问题?

delphi indy10 delphi-xe

3
推荐指数
2
解决办法
1万
查看次数

1
推荐指数
1
解决办法
7617
查看次数

如何在Delphi XE3中将String转换为LongInt?

如何在Delphi XE3中将String转换为LongInt?strtoInt和strToint64适用于类型小于LongInt的变量.

delphi delphi-xe3

0
推荐指数
1
解决办法
3385
查看次数