草庐IT

delphi-xe2

全部标签

windows - Delphi:通过套接字发送多个字符串?

我目前正在使用delphi6(是的,我知道..但到目前为止它已经完成了工作。)我正在使用Serversocket和客户端套接字。当我的客户端连接到我的服务器时,我想让它发送一些信息,比如计算机名、LANIP、操作系统名称、ping。目前我只有客户端向服务器发送计算机名,我想知道如何发送多个信息,并在我的网格中相应地设置它?这是源代码:客户:unitclient1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ScktComp;typeTForm1=class

windows - Delphi静态或动态链接到windows dll

我知道在加载时隐式链接到库可以提高性能,因此我想知道在编译时以这种方式链接是否是一种好的做法,从而增加可执行文件的大小(诚然这只是边际)相比在运行时显式链接。我的问题是,当针对位于System32中的MicrosoftWindowsdll文件进行链接时,在加载时进行链接是否“更好”,因为您几乎可以确定库将存在或遵循显式方法?使用的语言是Delphi(pascal),相关库是WTsAPI32.dll-终端服务。编辑:正如所指出的那样-我选择的语言不正确并且已被修改。此外,由于在Unix中只有真正广泛链接到库,我关于可执行文件大小的评论可以省略,我相信当时我实际上指的是静态链接,它将库代码

windows - 如何在 Delphi 的多线程中加载一个 DLL?

也许我错过了什么,我不知道这里发生了什么。我正在尝试在TThread对象的多个实例中加载同一个DLL。这是我的DLL代码:libraryMyCalcFor32;usesSysUtils,Classes,uRunnerin'uRunner.pas';ExportsEVal;{$R*.res}beginend.这是uRunner.pas:unituRunner;interfaceusesSysUtils,Classes;functionEVal(Valor:WideString):WideString;stdcall;export;implementationfunctionEVal(Va

windows - 从 Delphi 启动 Windows 优化应用程序 (Windows 10)

我们有一个遗留的Delphi7应用程序,它启动Windows碎片整理和屏幕键盘应用程序,如下所示://DefragmentationapplicationShellExecute(0,'open',PChar('C:\Windows\System32\dfrg.msc'),nil,nil,SW_SHOWNORMAL);//On-screenkeyboardShellExecute(0,'open',PChar('C:\Windows\System32\osk.exe'),nil,nil,SW_SHOWNORMAL);两者都在WindowsXP上工作,但在Windows10上失败。我发现

windows - 从delphi中的文本段落中提取第一行

我将文本传递给一个函数。该文本可以包含任何内容,从单个字符一直到整本书。我需要提取第一个点赞并将其用作“标题”,这样我就可以命名一个文件,我将在其中保存该文本作为备份。我正在使用以下内容:functionGetTitle(varText:string):string;vartitle:string;position:integer;begintitle:='';position:=AnsiPos(#10,Text);ifposition=0thenbeginposition:=AnsiPos('.',Text);if(position=0)thentitle:=Textelsetitl

C到delphi转换

谁能告诉我我在转换过程中哪里出错了:C:typedefstruct_REGISTRY_EVENT{REG_NOTIFY_CLASSeventType;TIME_FIELDStime;HANDLEprocessId;ULONGdataType;ULONGdataLengthB;ULONGregistryPathLengthB;/*Containspathandoptionallydata*/UCHARregistryData[];}REGISTRY_EVENT,*PREGISTRY_EVENT;德尔福:_Registry_Event=recordEventType:REG_NOTIFY_

Windows PaintDesktop版本

我正在运行Win7,并希望更改将HKCU\ControlPanel\Desktop\PaintDesktopVersion设置为1时显示的构建标识符。是否可以更改或添加此文本(例如个人计算机的名称或用户的名称)? 最佳答案 正如大卫所说,字符串是硬编码的。好消息是,已经存在agreatutility将文本添加到墙纸。 关于WindowsPaintDesktop版本,我们在StackOverflow上找到一个类似的问题: https://stackoverflo

windows - 在 Windows 和 Delphi 中实现应用程序可移植性?

我们的这个应用程序不会写入Windows注册表或将其配置文件(例如INI文件)存储在用户配置文件中;相反,它将其配置文件存储在程序的目录中。维基百科有这样的说法Aportableapplication(portableapp)isacomputersoftwareprogramdesignedtorunindependentlyfromanoperatingsystem.ThistypeofapplicationisstoredonaremovablestoragedevicesuchasaCD,USBflashdrive,flashcard-storingitsprogramfile

windows - 在delphi中逆向加密

这段代码不是我写的,是以前的程序员写的。但是,我注意到他没有提供解密算法,导致加密无效。如何解密?functionEncrypt(jstr:String):String;varI:Integer;A:Real;beginifLength(jstr)=0ThenbeginResult:='';Exit;end;A:=0;forI:=0ToLength(jstr)doA:=A+(Ord(jstr[I])*Pos(jstr[I],jstr))/33;Result:=FormatFloat('0000000000.0000000000',A);ifPos(',',Result)>0thenbe

c - Win VS2008 调用约定 : Delphi dll from c

我在C应用程序(VS2008,Win)中调用了一个用Borland中的Delphi编写的dll中的函数。该函数有效,但每次调用后我都会收到此错误:“ESP的值未在函数调用中正确保存[...]”,这意味着我的调用约定是错误的。我不知道Delphi,也没有完整的dll代码,但我相信这是Delphi函数:functiontranslate(file1,file2:PChar):PChar;stdcall;...Result:=PChar(c);end;exportstranslate;c中的相关部分:typedefchar*(__stdcall*translate)(char*,char*)