小编Pla*_*ort的帖子

RFID卡识别

我正在寻找德尔福的​​一些图书馆来编程和阅读RFID卡.今天我使用普通的Mifare 1k卡,并使用一个简单的库来读取UID卡,但我想用这些卡做更多的事情,比如存储和读取内存.

今天我的开发在delphi中使用PCSCconnector.pas库(PC/SC接口组件)

我不确定除了发送代码以返回我的卡的UID号码之外是否还能做更高级的事情?

如果没有,那还有什么可以使用?

在第二个注释中,有人可以向我推动如何识别卡类型的正确方向吗?我拿着什么样的RFID卡,参数是什么,mifare 1k.5K?java卡等等?

delphi rfid

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

使用ADO Query参数(mysql/MyConnector)

今天我下载并安装了MyConnector,所以我可以将Mysql与ADO一起使用,一切安装完毕,OK!,我可以与ODBC建立连接并从我的delphi环境进行连接.

当我在runetime构建我的查询时,我得到一个错误说:

项目Project1.exe引发异常类EOleException,消息'参数类型错误,超出可接受的范围,或者彼此冲突'.流程停止了.使用"步骤"或"运行"继续.

function TForm1.CreateSQL : TADOQuery;
begin
  result := TADOQuery.create(self);
  with Result do
  begin
    Connection     := MainConnection;
    CursorLocation := clUseServer;
    CursorType     := ctStatic;
    CacheSize      := 50;
    AutoCalcFields := true;
    ParamCheck     := true;
    Prepared       := true;
  end;
end;

procedure TForm1.login();
begin
  with CreateSQL do
  try
    with SQL do
    begin
      add('SELECT                       ');
      add('  *                          ');
      add('FROM                         ');
      add('  LisenswebUsers             ');
      add('WHERE                        ');
      add('  UserName     = :MyUsername '); // debugger exception here
      add('AND                          ');
      add('  UserPassword = :MyPassword '); // debugger exception …
Run Code Online (Sandbox Code Playgroud)

mysql delphi odbc

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

查找十进制编码十六进制值的正确公式

我在这里有一个案例,我试图找出如何将十六进制数转换为十进制数.

我之前有类似的情况,但发现如果我颠倒了十六进制字符串,并交换了每个第二个值(little-endian),然后将其转换回十进制值,我得到了我想要的,但这个是不同的.

这是我们收到的价值观

价值nr.1是Dec:1348916578 Hex:0a66ab46

我现在只有一个十进制/十六进制,但我想获得更多的值来比较结果.

我希望那里的任何数学天才都能看到这里可能使用的公式:)

谢谢

delphi math hex

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

新编译的应用程序需要 UAC/高程?

我有一个系统,我使用 UAC 将其设置为普通系统,并在我的 delphi 环境中编译名为 ka.exe 的项目,并为其创建一个 installshield 项目。

设置,一切都完成了!但是每当我开始我的程序时,它都需要提升,我不知道为什么。

只是为了确保 installshield 没有在我身上玩心理游戏,我编译了一个新的 .exe,然后手动将它复制到我的联网计算机上。

图标看起来一样,上面也有这个 UAC 盾牌。

我的项目内部有一些函数可能会与网络共享名称交谈,并与 SQL 数据库交谈......

那么为什么我的应用程序需要提升才能运行?

delphi uac elevation process-elevation windows-vista

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

佳能EOS 1000 /尼康+德尔福

我正在寻找一种能够从德尔福控制我的佳能或尼康相机的方法,基本上我需要找到一种方法来接收新的图像,同时相机与USB即时连接,即检测何时拍摄新照片,所以我可以在我的应用程序中采取行动,例如裁剪图像,调整亮度等

我看看佳能的主页,似乎他们没有为欧洲提供SDK.

请建议,任何人?

delphi camera

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

壁纸改变

我正在寻找正确的API来改变Windows 7初学者版壁纸

微软做了一些事情,以避免改变Windows背景壁纸

delphi winapi windows-7

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

APDU在mifare classic上写入块命令

我一直在尝试将一些数据写入我的mifare经典卡片.首先我发送这两个返回90 00的命令:

加载Mifare键:

FF 82 20 01 06 FF FF FF FF FF FF

认证:

FF 86 00 00 05 01 00 01 60 01

现在我可以将命令写入扇区0和块1 + 2

ff d6 00 01 10 14 01 03 E1 03 E1 03 E1 03 E1 03 E1 03 E1 03 E1

ff d6 00 02 10 03 E1 03 E1 03 E1 03 E1 03 E1 03 E1 03 E1 03 E1

我错误地覆盖了第3块,几次使这个扇区难以理解,似乎:

如果我发送命令ff d6 00 04 10我得到返回错误69 82我搜索为身份验证错误

我需要对每个部门进行身份验证吗?如果是这样,下一个和后续部门的命令是什么?

apdu nfc mifare

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

从delphi控制邮件客户端

我有一个问题,我们需要从Embarcadero Delphi 2010控制Outlook.

我们今天使用了一些第三方组件来打开邮件发送窗口,这工作了一些时间.但现在它似乎在较新的Outlook版本上失败了.

是否有任何组件专门用于控制Delphi的Outlook,或者是否有任何MAPI客户端可以作为更好的替代品.

我们需要做的基本上是:1.在Outlook中启动新消息(发送收件人作为参数)2.接收发送的消息,以便我们可以存储它3.将消息从outlook拖放到我们的应用程序.

如果最终用户不使用outlook,那么正常MAPI就足以作为替换.

我在哪里可以找到一个很好的组件来为我做这样的工作?

delphi mapi outlook outlook-addin

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

Delphi Ansistrings

我有一个情况在这里,我将迁移到2011德尔福XE德尔福7,让我吃惊的许多组件将由于ansistrings问题,他们看起来像日本/中国文字德尔福XE,现在我用的单位是一个PCSC连接器,似乎已停止/放弃原始开发人员.

基本上我想要的是一个简单的方法来再次阅读字符串与尽可能少的原始代码修改..

如果有任何关于如何使用makae组件ansistring准备好2009年的更好的教程,那么更新也会帮助我

delphi delphi-7 ansistring delphi-2010

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

创建一个将十六进制值作为字符串反向排序的函数

怎么把这个...

我整天都在努力反转Mifare NFC卡的UID值,该值我读为十六进制字符串,可以将其转换为整数,这对于4字节UID来说效果很好。

可能有大型UID示例的mifare desfire卡会变得一团糟:

04 44 44 22 E0 62 80

该值已正确读取,我什至可以使用我的函数StrToInt('$'+ TheUIDvalue)将其转换为小数

现在,奇怪的是,我需要使用以下函数来扭转这种情况:

function HexToInt(s: string): Longword;
var
  b: byte;
  c: Char;
begin
  Result := 0;
  s := UpperCase(s);
  for b := 1 to Length(s) do
  begin
    Result := Result * 16;
    c := s[b];
    case c of
      '0' .. '9':
        Inc(Result, Ord(c) - Ord('0'));
      'A' .. 'F':
        Inc(Result, Ord(c) - Ord('A') + 10);
    else
      begin
        Result := 0
      end;
    end;
  end;
end;

function LongEndian(L : UInt64) : …
Run Code Online (Sandbox Code Playgroud)

delphi pascal endianness mifare

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