Delphi

Sending Outlook Email with Delphi

最后都变了- 提交于 2020-12-13 17:54:09
问题 I can successfully send an email by OLE between Delphi 10.4 and Outlook 365. try Outlook:=GetActiveOleObject('Outlook.Application'); except Outlook:=CreateOleObject('Outlook.Application'); end; try MailItem:= Outlook.CreateItem(olMailItem) ; SubjectLine:= 'Whatver'; MailItem.Subject:= SubjectLine; EmailTo:= 'somebody@somewhere.com'; MailItem.Recipients.Add(EmailTo); MailItem.BodyFormat := olFormatPlain; MailItem.GetInspector; Attachment:= 'C:\File.doc'; MailItem.Attachments.Add(Attachment);

Sending Outlook Email with Delphi

孤人 提交于 2020-12-13 17:51:40
问题 I can successfully send an email by OLE between Delphi 10.4 and Outlook 365. try Outlook:=GetActiveOleObject('Outlook.Application'); except Outlook:=CreateOleObject('Outlook.Application'); end; try MailItem:= Outlook.CreateItem(olMailItem) ; SubjectLine:= 'Whatver'; MailItem.Subject:= SubjectLine; EmailTo:= 'somebody@somewhere.com'; MailItem.Recipients.Add(EmailTo); MailItem.BodyFormat := olFormatPlain; MailItem.GetInspector; Attachment:= 'C:\File.doc'; MailItem.Attachments.Add(Attachment);

Accessing TRAKT API from Delphi - issues with Bearer authentication [SOLVED]

痴心易碎 提交于 2020-12-13 03:10:50
问题 Using TOauth2Authenticator, TRESTClient, TRESTRequest, TRESTResponseDataSet, TRESTResponse, TFDmemtable and a TDataSource have I managed to connect to the Trakt API, and authenticate my application and get a code in return and lastly use that code to get a token. So now I should be able to list the movies with the below code. RESTClient1.BaseURL := 'https://trakt.tv/'; RESTRequest1.Resource := 'calendars/my/movies/{start_date}/{days}'; RESTRequest1.AddParameter('Authorization','Bearer ' +

数据类型表(DELPHI、C++)

谁都会走 提交于 2020-12-12 21:26:52
delphi整型数据表 Integer -2147483648..2147483647 signed 32-bit Cardinal 0..4294967295 unsigned 32-bit Shortint -128..127 signed 8-bit Smallint -32768..32767 signed 16-bit Longint -2147483648..2147483647 signed 32-bit Int64 -2^63..2^63? signed 64-bit Byte 0..255 unsigned 8-bit Word 0..65535 unsigned 16-bit Longword 0..4294967295 unsigned 32-bit C++ char -128 到 127 或者 0 到 255 1 个字节 unsigned char 0 到 255 1 个字节 signed char -128 到 127 1 个字节 int -2147483648 到 2147483647 4 个字节 unsigned int 0 到 4294967295 4 个字节 signed int -2147483648 到 2147483647 4 个字节 short int -32768 到 32767 2 个字节 unsigned short int 0 到

Delphi 与 C/C++ 数据类型对照表(最新的tokyo)

断了今生、忘了曾经 提交于 2020-12-12 07:53:57
更新,下面这table为最新的tokyo基本数据类型与C++的对照关系: Delphi to C++ types mapping Go Up to Support for Delphi Data Types and Language Concepts Below is a list of Delphi data types and the corresponding C++ data types: Delphi type defined in sysmac.h Platform Corresponding C++ type Boolean bool ShortInt System::Int8 signed char SmallInt short Integer int Int64 __int64 Byte System::Byte unsigned char Word System::Word unsigned short Cardinal unsigned UInt64 unsigned __int64 NativeInt System::NativeInt 32-bit platforms int 64-bit Windows __int64 64-bit iOS 64-bit Linux long NativeUInt System::NativeUInt 32-bit

Delphi 与 C/C++ 数据类型对照表&& struct 与 C 数据类型对照表

自作多情 提交于 2020-12-12 07:23:17
Delphi 与 C/C++ 数据类型对照表&& struct 与 C 数据类型对照表 参考文章: https://docs.python.org/3/library/struct.html#format-characters https://www.cnblogs.com/findumars/p/7147604.html https://blog.csdn.net/diligentcatrich/article/details/8171906 注意:struct 模块是缺点的,其中 int 类型或别的类型不是无限制的,当整数大于一定值后,会失败,即 int 或相关类型是有大小限制的(int 为:9位)。 来源: oschina 链接: https://my.oschina.net/u/4413200/blog/4793624

[安全攻防进阶篇] 九.熊猫烧香病毒机理IDA和OD逆向分析(上)

自作多情 提交于 2020-12-10 16:58:56
如果你想成为一名逆向分析或恶意代码检测工程师,或者对系统安全非常感兴趣,就必须要认真分析一些恶意样本。熊猫烧香病毒就是一款非常具有代表性的病毒,当年造成了非常大的影响,并且也有一定技术手段。本文将详细讲解熊猫烧香的行为机理,并通过软件对其功能行为进行分析,这将有助于我们学习逆向分析和反病毒工作。后续作者还将对其进行逆向调试,以及WannaCry勒索蠕虫、各种恶意样本及木马的分析。基础性文章,希望您喜欢! IDA和OD作为逆向分析的“倚天剑和“屠龙刀”,学好它们的基本用法至关重要。本文重点分析熊猫烧香病毒的功能函数,大家掌握这些技巧后才能更好地分析更多的代码。同时,本文部分实验参考姜晔老师的视频分析,真的非常佩服和值得去学习的一位老师。技术路上哪有享乐,为了提升安全能力,别抱怨,干就对了~ 从2019年7月开始,我来到了一个陌生的专业——网络空间安全。初入安全领域,是非常痛苦和难受的,要学的东西太多、涉及面太广,但好在自己通过分享100篇“网络安全自学”系列文章,艰难前行着。感恩这一年相识、相知、相趣的安全大佬和朋友们,如果写得不好或不足之处,还请大家海涵! 接下来我将开启新的安全系列,叫“安全攻防进阶篇”,也是免费的100篇文章,作者将更加深入的去研究恶意样本分析、逆向分析、内网渗透、网络攻防实战等,也将通过在线笔记和实践操作的形式分享与博友们学习,希望能与您一起进步,加油~

How to extract the inner text and XML of node as string?

我的梦境 提交于 2020-12-10 08:00:27
问题 I have the following XML structure: <?xml version="1.0"?> <main> <node1> <subnode1> <value1>101</value1> <value2>102</value2> <value3>103</value3> </subnode1> <subnode2> <value1>501</value1> <value2>502</value2> <value3>503</value3> </subnode2> </node1> </main> In Delphi I am looking for a function which returns the inner text and XML of a node as a string. For example for <node1> the string should be (if possible including indents and line breaks): <subnode1> <value1>101</value1> <value2>102

Connection timeout with TNetHTTPClient and Delphi 10.3

风格不统一 提交于 2020-12-06 16:25:47
问题 I try to set a 6 s connection time out for non responding sites, on a TNetHTTPClient with : NetHTTPClient1.ConnectionTimeout := 6000; But it doesn't work, the timeout seems always the same default ( about 1 mn) Am I missing something with the ConnectionTimeout or with my code ? Edit : OK, my mistake, for this tests I used a (bad) proxy and it was the proxy which was not responding. So it seems that the ConnectionTimeout is not efficient in case of not responding proxy. I will post mode code

Some CLSID Registry keys exist but cannot be read

早过忘川 提交于 2020-12-06 13:02:47
问题 I have following program that reads all CLSID registry keys and displays their name on a listbox; it is written in Delphi, but the question is not specific to Delphi; it is rather a question about the Windows Registry. procedure TForm2.Button1Click(Sender: TObject); var guid: string; reg: TRegistry; sl: TStringList; i: Integer; name: string; begin memo1.Clear; reg := TRegistry.Create; sl := TStringList.Create; memo1.Lines.BeginUpdate; try reg.RootKey := HKEY_CLASSES_ROOT; if reg