求助!!delphi模拟登录博客园并发帖!!

百度未果 请兄弟们给出解决思路 最好再给出代码或者帮看下下面的代码问题处在哪里怎么扩充!!谢谢

procedure TForm1.Button1Click(Sender: TObject);

var postList:TStrings;

Response:TStringStream;

url:string; myIH:TIdHTTP;

IdSSLIOHandlerSocketOpenSSL1:TIdSSLIOHandlerSocketOpenSSL;

begin

Response:=TStringStream.Create('');

postList:=TStringList.Create;

try

myIH:=TIdHTTP.Create(nil);

IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);

myIH.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

myIH.HandleRedirects:=True; myIH.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)';

      // myIH.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon)';           

postList.Add('__EVENTTARGET=');

postList.Add('__VIEWSTATE=/wEPDwUJLTI5NjAzODk2ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQULY2hrUmVtZW1iZXKHW0DW4nQrSrBHBomKrt3/MjtBLA==');

postList.Add('__EVENTVALIDATION=/wEWBQKE2u7lCQLyj/OQAgK3jsrkBALR55GJDgKC3IeGDO8x1Jd0k/hBY1a/6Yl9fTpP16ti');

postList.Add('input1=@@@@');

postList.Add('input2=@@@@');

postList.Add('chkRemember=');

postList.Add('btnLogin=登 录');

myIH.Post('http://passport.cnblogs.com/login.aspx',postList,Response);

finally

Memo1.Lines.Text := Utf8ToAnsi(Response.DataString);

Response.Free;

postList.Free;

end;

end;

3个回答

用twebbrowser好了

wonderwiller
wonderwiller 亲 看你是女神 就采纳你的没啥用处的回答吧 对了 要在空间多发你的照片 记得哦 亲
4 年多之前 回复

建议使用TWebbrowser,自己建议一个浏览器,快捷方式录入用户名、密码。可以浏览自己带支的网站。

先用Http抓包工具,获得各个动作的动作包协议数据,然后使用HttpRequest等之类的东西,直接模拟提交就行了。

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
急救!!!delphi7 下面对ucs-2编码如何进行转码?
各位大虾,小弟在开发一个身份证的读取程序,但是读出来是用gb13000 ucs-2进行编码的,然后我在百度上找遍了都没有找到关于delphi7下的转码函数,请问这个有解吗? 谢谢!!!
求救!!!Delphi调用webService传递XML参数
本人Delphi菜鸟一枚,刚入职,在工作中遇到以下问题,请各位大神帮忙。 2方案设计详情 2.1概述 主要用于通过接口实现设备直传数据到山东省学生体质健康标准数据管理系统,其中数据上传是对直接上传学生体测数据到山东省学生体质健康标准数据管理系统的接口设计描述,其中包含三个参数,一是加密后的用户信息,二是需要同步的体测数据,三是上传数据的设备所属厂商及数据上传学校标识码等信息加密后唯一串号,用来确定学生体测数据上传设备所属厂商、学校等基本信息。 2.2接口详细描述 数据上传接口分为两个:学生体测数据上传接口和学生体测环境上传接口。 学生体测数据上传接口主要是用于解决从智能体测设备测试完成后,直接将学生测试数据通过该接口上传至体质健康管理系统中,数据上传后为保存状态,需要学校用户登录系统人工检查后点击上报。 学生体测环境上传接口主要是用于解决从采集软件中将学校记录的测试教师、测试时间、测试地点、测试器材等测试环境信息上传至体质健康管理系统中,数据上传后为保存状态,需要学校用户登录系统人工检查后点击上报。 2.3学生体测上传数据接口 public String postXsTcsj(String userInfo,String tcsjXml,String tcsbch) 说明 接收学生体测数据 参数说明 userInfo-------加密后的用户信息,格式username|password tcsjXml ---------需要同步的体测数据,XML格式参见附录二 tcsbch --------上传数据的设备所属厂商及数据上传学校标识码等信息加密后组成的唯一串号 返回值 0:用户名密码格式不正确 1:用户名密码错误 -1:程序出错,@后面跟错误信息 2:学校标识码不存在 3:成功 4@xxxx:学生不存在,@后面为学生xjfh 5@ xxxx:学生成绩范围校验错误,第n个学生的xx项目不符合xx范围 8: 唯一串号不正确 访问地址 http://58.195.98.201:9081/sdtc/services/tcSjService.tcSj 2.4 学生体测环境上传接口 public String postTcHj(String userInfo,String tchjXml,String tcsbch) 说明 接受体测环境 参数说明 userInfo-------加密后的用户信息,格式username|password tchjXml ---------需要同步的体测环境,XML格式参见附录四 tcsbch --------上传数据的设备所属厂商及数据上传学校标识码等信息加密后组成的唯一串号 返回值 0:用户名密码格式不正确 1:用户名密码错误 -1:程序出错,@后面跟错误信息 2:学校标识码不存在 3:成功 8: 唯一串号不正确 访问地址 http://58.195.98.201:9081/sdtc/services/tcHjService.tcHj 3上传数据XML样式 3.1学生体测数据XML样式: <?xml version='1.0' encoding='UTF-8'?> <syncInfo> <xxbsm></xxbsm><!—学校标识码--> <student><!—学生信息--> <xjfh></xjfh><!—学籍号--> <tc01 lrfs="1"></tc01><!—项目成绩(标签名由tc+项目编号组成)--> ... </student> <student> <xjfh></xjfh> <tc01 lrfs="1"></tc01> ... </student> </syncInfo> 3.2体测环境xml样式: <?xml version='1.0' encoding='UTF-8'?> <syncInfo> <xxbsm></xxbsm><!—学校标识码--> <cshj><!—测试环境--> <njbh></njbh><!—年级编号--> <bjbh></bjbh><!—编辑编号--> <xmbh></xmbh><!—项目编号--> <csls></csls><!—测试老师--> <cssj></cssj><!—测试时间--> <csdd></csdd><!—测试地点--> <csqc></csqc><!—测试器材--> <csfs></csfs><!—测试方式(1:手工 2:仪器)--> </cshj> </syncInfo> 4测试接口数据 此文档提供设备通过接口上传到山东省学生体质健康标准数据管理系统(接口调试版本)所需要的测试数据,所提供的数据仅适用于调试,非正式数据。 学校上传数据唯一串号:012C2C9BA925FAF8045B2FD9B02A2664 登录用户名:设备测试学校 登录密码:sbcs123! 测试学校标识码:1234567890 具体学生数据: 班级编号 班级名称 学籍号 民族代码 姓名 性别 出生日期 生源地 身份证号 家庭住址 2016010101 2016级测试一班 20160101011 1 李隆 1 19951010 370000 371421199510145673 天津市南开区黄河道广 2016010101 2016级测试一班 20160101012 1 杨孟 1 19951109 370000 120225199511012345 天津市蓟县舒馨家 2016010102 2016级测试二班 20160101023 1 姚雅 1 19970509 370000 130705199705012345 河北省张家口市宣 2016010102 2016级测试二班 20160101024 1 彭雪 2 19941116 370000 132627199411112345 河北省丰宁县大阁镇 2015010101 2015级测试一班 20150101015 1 古手 2 19950530 370000 440508199505312345 广东省汕头市金平区中山 2015010101 2015级测试一班 20150101016 1 许锐 1 19950124 370000 152522199501212345 内蒙古锡林郭勒盟阿巴嘎 2015010101 2015级测试一班 20150101017 1 王胜 2 19940122 370000 152801199401212345 内蒙古巴彦淖尔市 以上为方案内容,因格式问题显示有些乱。如需要方案原文可Mail:techfront@163.com,我将原文发送过去。希望有大神能抽时间帮我写个示例程序。如有帮助,必有重谢。
delphi webbrowser实现模拟登录遇到的问题 求助
代码如下: procedure TForm1.btn1Click(Sender: TObject); varcurrUrl:IWebBrowser; iall : IHTMLElement;begin try finally wb1.Navigate('http://www.huishangbao.com/member/login.php'); wb1.OleObject.Document.getElementById('username').value:='atssltjgc'; wb1.OleObject.Document.getElementById('password').value:='861201zzd'; wb1.OleObject.document.all.item('dl_button').click; ShowMessage('已经登录'); wb1.FreeInstance;tryfinally wb1.Navigate('http://www.huishangbao.com/member/my.php?mid=5&action=add'); Sleep(600); ShowMessage('已经登录供应页面'); if Assigned(wb1.Document) then begin iall := (wb1.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end; end; end; 遇到的问题是: wb1第一次Navigate即wb1.Navigate('http://www.huishangbao.com/member/login.php');可以得到执行 但是没有显示ShowMessage('已经登录'); 关键是wb1的第二次Navigate即wb1.Navigate('http://www.huishangbao.com/member/my.php?mid=5&action=add');没有执行 啊 模拟登录的是 电商网站 会商宝 www.huishangbao.com 帐号 atssltjgc 密码 861201zzd 请兄弟们都试着登录一下 再运行下我的代码 帮着分析分析问题出在哪里 怎么解决谢谢了!!!
DELPHI 查询sql2008r2问题!
疯了,群里有会delphi的没,2008R2 查询一个月数据没问题,查询一年数据 报错,“对象被打开” 如果只查询一列,一年数据可正常查询! C# 其他程序查询都没问题。。。。。 主程序是delphi的,所以需要用主程序! 使用 delphi7开发简单链接,一个月可以查询,一年数据报错! 尝试使用 delphi xe7 问题一样!使用 .net写个简单链接无问题! ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043703_151044.png) delphi xe7写的简单查询 ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043652_946173.png) delphi7 写的简单查询 ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043664_152642.png)
C++中的类静态变量在delphi7中怎么实现。
请教一下,类TCat,TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了,怎么弄?? myKind是工程全局变量,cat:TCat;dog:TDog; 都能访问,现在想做个封装,封装到父类TAnimal中,
delphi XE 10 安卓开发,如何更改 ListBox的字体大小?
delphi XE 10 ,可以方便地变更 ListBox的字体大小。 但是!!! delphi XE 10 安卓开发,如何更改 ListBox的字体大小? 用ListBox1.canvas.font.size:=8;可以运行,但看不到字体大小变化效果。
delphi设计登录界面密码错误限制3次登录
本人在用delphi做一个登录界面, 想限制登录次数,如果密码输错3次,禁止登录,退出系统。请教大家帮我看一下,限制密码错误登录3次的代码哪里错了?运行结果是:无论密码输错几次,都不会退出系统。很着急,求大神,在线等,谢谢!![图片](https://img-ask.csdn.net/upload/201601/02/1451742881_678328.jpg)
求助 C语言(结构体 函数) 查找书籍
# 题目描述 给定n本书的名称和定价,本题要求编写程序,查找并输出其中定价**最高**的书的名称和定价。 ## 输入 输入第一行给出正整数n(<10),随后给出n本书的信息。每本书在一行中给出书名,即长度不超过30的字符串,随后一行中给出正实数价格。题目保证没有同样价格的书。 ## 输出 在一行中按照“价格, 书名”的格式先后输出价格最高的书。价格保留1位小数。 ## 样例输入 3 Programming in C 21.5 Programming in VB 18.5 Programming in Delphi 25.0 ## 样例输出 25.0, Programming in Delphi ## 代码 ``` #include"stdio.h" struct book{ char name[50]; float price; }; struct book getmax(struct book books[],int n); int main() { struct book books[20]; @@1 嵌入代码 @@1 } struct book getmax(struct book books[],int n) @@2 嵌入代码 @@2 ```
delphi dbgrideh的导出功能,导出某几列?
delphi dbgrideh的导出功能,导出某几列? 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的, 现在我只想导出第2列 至 第5列 其他列的不要,怎么实现啊。 有知道的老师吗?
delphi 可以通过FDQuery来执行导入数据库操作吗?
delphi 可以通过FDQuery来执行导入数据库操作吗? 如题: 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢,麻烦老是指点。
Delphi PicklList 显示问题,详细见图。
![图片说明](https://img-ask.csdn.net/upload/201912/15/1576388119_311742.png) Procedure TfrmsAA.dbgrdCellClick(Column: TColumnEh); Begin Inherited; If (UPPERCASE(Column.FieldName) = 'ColNM') And (qry.FieldByName('ColPcode').AsString <> '') Then Begin TRY IF Not (qry.State In [dsEdit, dsInsert]) Then BEGIN qry.Edit; qry.Post; END; qry.DisableControls; Column.PickList.clear; Column.KeyList.clear; With Sys.QryTemp Do Begin close; sql.Clear; sql.add('SELECT Pcode FROM Table1 WHERE code=' + qry.fieldbyname('colpcode').asstring); open; While Not eof Do Begin dbgrd.FieldColumns['colnm'].PickList.Add(fieldByName('pcode').AsString); dbgrd.FieldColumns['colnm'].KeyList.Add(fieldByName('pcode').AsString); Next; End; End; Finally qry.EnableControls; End; End; End; 已确认是每次点击的时候,清除picklist导致,但是这种情况如何处理?是否有其他代替的方法?
Delphi设计一个登录界面
Delphi中form1是:用户名和密码,用户名输入"test1","test2","test3","test4","test5", 密码都是"123456",都正确,则进入form2,若用户名错误,弹出消息框"用户名不存在" ,若密码错误,则弹出消息框"密码输入错误"。如何用数组编写form1的代码? var name:array[1..5] of string;
delphi idftp上传,如何判断指定目录下的有这个文件?
if idftp1.Connected then begin if dlgOpen_File.Execute then begin idftp1.TransferType := ftBinary; //这里怎么判断FTP服务器上有这个文件(目录已经存在了, 只要判断这个目录下面是否有这个文件), 如果有我就不传,如果没有再执行下面的上传代码 idftp1.Put(dlgOpen_File.FileName, AnsiToUtf8(ExtractFileName(dlgOpen_File.FileName))); ChageDir(Utf8ToAnsi(idftp1.RetrieveCurrentDir)); end; end; ``` 小弟刚接触delphi ,希望大神帮助一下,感谢了! ```
delphi 7和delphi xe,你选哪一个?
过去开发项目一直用delphi 7,为了避免版权问题,现在想买套正版软件,纠结于买delphi 7还是delphi xe,大家来说说它们的优缺点吧
如何在Delphi打开Excel文档时使用修复功能?
问题:在使用Delphi7操作Excel文档时,当文件直接用excle打开时提示“发现不可读取的内容,是否恢复此工作簿的内容?如果信任此工作簿的来源,请单价是”。此时点击“是”,可以打开,再保存后打开就正常,不再提示上述错了,但用Delphi的Application.Workbooks.open方法打开时就会提示类的Open方法无效错误。在MSDN中找到可以用修复方法打开,用VBA 的XlCorruptLoad=xlRepairFile 参数可以正常打开文件。请问? 在Delphi中有没有方法可以使用类似VBA XlCorruptLoad的参数? 以下是我的代码,但没有作用! FileOv:=CreateOleObject('Excel.Application'); FileOv.Application.DisplayAlerts:=false; FileOv.Application.Workbooks.open(wjm,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,xlRepairFile);
使用VC调用别人用Delphi做的动态库访问冲突且无法加载请问是什么原因呢?
因为最近要做个PC与PLC通信的软件,因此在网上找到一个人用Delphi写的PLC通信dll库,应该是32位。我用VC2015写了个MFC要调用这个dll发现总是提示访问冲突,调用失败。因为有其他人是写图像处理的,环境必须要用VC 2015。但是和那个人联系他说其他人用了是没问题的,我因为是刚开始学这个软件,也没有dll源码,不知道问题出在哪。下面是我程序的源码,其他dll内函数声明我都还没用,只是用LoadlibraryA发现就已经失败了。**如果有朋友能在32位(64位更好)的C++ MFC环境下解决并调试成功的话,必有感谢。** 引用线内部分是我添加的,其他都是向导生成的。附件里面有调用的库。 ![图片说明](https://img-ask.csdn.net/upload/201911/21/1574305525_943286.png) dll地址:h1ttps://pan.baidu.com/s/1chKfBqmRsmDmvfMqt31RNg ``` // MFC-PLC21Dlg.cpp : 实现文件 // #include "stdafx.h" #include "MFC-PLC21.h" #include "MFC-PLC21Dlg.h" #include "afxdialogex.h" #ifdef _DEBUG #define new DEBUG_NEW #endif ///////////////////////////////////////////////////////////////// HINSTANCE hinstDLL; typedef int(_stdcall *pOpen)(int nport, int BaudRate, int DataBits, char* Parity, int StopBits, char* User); typedef int(_stdcall *pClose)(int nport); typedef int(_stdcall *pSetDelay)(int value); typedef int(_stdcall *pComTrue)(int nport); typedef int(_stdcall *pComWork)(int nport); typedef int(_stdcall *pReadBit)(int nport, int node, char* element, int address, int Bit); typedef int(_stdcall *pReadByte)(int nport, int node, char* element, int address, int Count, int* RxdBuffer); typedef int(_stdcall *pReadInt)(int nport, int node, char* element, int address, int Count, int* RxdBuffer); typedef int(_stdcall *pReadDInt)(int nport, int node, char* element, int address, int Count, int* RxdBuffer); typedef int(_stdcall *pReadFloat)(int nport, int node, char* element, int address, int Count, float* RxdBuffer); typedef int(_stdcall *pBitWrite)(int nport, int node, char* element, int address, int Bit, int value); typedef int(_stdcall *pBitEWrite)(int nport, int node, char* element, int address, int Bit, int value); typedef int(_stdcall *pEbitCancel)(int nport, int node, char* element, int address, int Bit); typedef int(_stdcall *pWriteByte)(int nport, int node, char* element, int address, int Count, int* TxdBuffer); typedef int(_stdcall *pWriteInt)(int nport, int node, char* element, int address, int Count, int* TxdBuffer); typedef int(_stdcall *pWriteDInt)(int nport, int node, char* element, int address, int Count, int* TxdBuffer); typedef int(_stdcall *pWriteFloat)(int nport, int node, char* element, int address, int Count, float* TxdBuffer); typedef int(_stdcall *pPlcRun)(int nport, int node); typedef int(_stdcall *pPlcStop)(int nport, int node); typedef int(_stdcall *pBitBin)(int value, int Bitaddress); typedef int(_stdcall *p16I_8h)(int value); typedef int(_stdcall *p16I_8l)(int value); typedef int(_stdcall *p8I_16I)(int valueH, int valueL); typedef int(_stdcall *p32I_16h)(int value); typedef int(_stdcall *p32I_16l)(int value); typedef int(_stdcall *p16I_32I)(int valueH, int valueL); typedef int(_stdcall *p32f_16h)(float value); typedef int(_stdcall *p32f_16l)(float value); typedef float(_stdcall *p16I_32f)(int valueH, int valueL); pOpen mOpen; pClose mClose; pSetDelay mSetDelay; pComTrue mComTrue; pComWork mComWork; pReadBit mReadBit; pReadByte mReadByte; pReadInt mReadInt; pReadDInt mReadDInt; pReadFloat mReadFloat; pBitWrite mBitWrite; pBitEWrite mBitEWrite; pEbitCancel mEbitCancel; pWriteByte mWriteByte; pWriteInt mWriteInt; pWriteDInt mWriteDInt; pWriteFloat mWriteFloat; pPlcRun mPlcRun; pPlcStop mPlcStop; pBitBin mBitBin; p16I_8h m16I_8h; p16I_8l m16I_8l; p8I_16I m8I_16I; p32I_16h m32I_16h; p32I_16l m32I_16l; p16I_32I m16I_32I; p32f_16h m32f_16h; p32f_16l m32f_16l; p16I_32f m16I_32f; /////////////////////////////////////////////////////////////// // 用于应用程序“关于”菜单项的 CAboutDlg 对话框 class CAboutDlg : public CDialogEx { public: CAboutDlg(); // 对话框数据 #ifdef AFX_DESIGN_TIME enum { IDD = IDD_ABOUTBOX }; #endif protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV 支持 // 实现 protected: DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialogEx(IDD_ABOUTBOX) { } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialogEx::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CAboutDlg, CDialogEx) END_MESSAGE_MAP() // CMFCPLC21Dlg 对话框 CMFCPLC21Dlg::CMFCPLC21Dlg(CWnd* pParent /*=NULL*/) : CDialogEx(IDD_MFCPLC21_DIALOG, pParent) { m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CMFCPLC21Dlg::DoDataExchange(CDataExchange* pDX) { CDialogEx::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CMFCPLC21Dlg, CDialogEx) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() ON_BN_CLICKED(Test, &CMFCPLC21Dlg::OnBnClickedTest) END_MESSAGE_MAP() // CMFCPLC21Dlg 消息处理程序 BOOL CMFCPLC21Dlg::OnInitDialog() { CDialogEx::OnInitDialog(); // 将“关于...”菜单项添加到系统菜单中。 // IDM_ABOUTBOX 必须在系统命令范围内。 ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { BOOL bNameValid; CString strAboutMenu; bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX); ASSERT(bNameValid); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // 设置此对话框的图标。 当应用程序主窗口不是对话框时,框架将自动 // 执行此操作 SetIcon(m_hIcon, TRUE); // 设置大图标 SetIcon(m_hIcon, FALSE); // 设置小图标 // TODO: 在此添加额外的初始化代码 return TRUE; // 除非将焦点设置到控件,否则返回 TRUE } void CMFCPLC21Dlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialogEx::OnSysCommand(nID, lParam); } } // 如果向对话框添加最小化按钮,则需要下面的代码 // 来绘制该图标。 对于使用文档/视图模型的 MFC 应用程序, // 这将由框架自动完成。 void CMFCPLC21Dlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); // 用于绘制的设备上下文 SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0); // 使图标在工作区矩形中居中 int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; // 绘制图标 dc.DrawIcon(x, y, m_hIcon); } else { CDialogEx::OnPaint(); } } //当用户拖动最小化窗口时系统调用此函数取得光标 //显示。 HCURSOR CMFCPLC21Dlg::OnQueryDragIcon() { return static_cast<HCURSOR>(m_hIcon); } ///////////////////////////////////////////////////////////////////// void CMFCPLC21Dlg::OnBnClickedTest() { // TODO: 在此添加控件通知处理程序代码 hinstDLL = LoadLibraryA("S7200_PPI.dll"); if (hinstDLL) { mOpen = (pOpen)GetProcAddress(hinstDLL, "S7200ComOpen"); mClose = (pClose)GetProcAddress(hinstDLL, "S7200ComClose"); mSetDelay = (pSetDelay)GetProcAddress(hinstDLL, "S7200SetDelay"); mComTrue = (pComTrue)GetProcAddress(hinstDLL, "S7200ComTrue"); mComWork = (pComWork)GetProcAddress(hinstDLL, "S7200ComWork"); mReadBit = (pReadBit)GetProcAddress(hinstDLL, "S7200BitRead"); mReadByte = (pReadByte)GetProcAddress(hinstDLL, "S7200ByteRead"); mReadInt = (pReadInt)GetProcAddress(hinstDLL, "S7200WordRead"); mReadDInt = (pReadDInt)GetProcAddress(hinstDLL, "S7200DwordRead"); mReadFloat = (pReadFloat)GetProcAddress(hinstDLL, "S7200FloatRead"); mBitWrite = (pBitWrite)GetProcAddress(hinstDLL, "S7200BitWrite"); mBitEWrite = (pBitEWrite)GetProcAddress(hinstDLL, "S7200BitEWrite"); mEbitCancel = (pEbitCancel)GetProcAddress(hinstDLL, "S7200EbitCancel"); mWriteByte = (pWriteByte)GetProcAddress(hinstDLL, "S7200ByteWrite"); mWriteInt = (pWriteInt)GetProcAddress(hinstDLL, "S7200WordWrite"); mWriteDInt = (pWriteDInt)GetProcAddress(hinstDLL, "S7200DwordWrite"); mWriteFloat = (pWriteFloat)GetProcAddress(hinstDLL, "S7200FloatWrite"); mPlcRun = (pPlcRun)GetProcAddress(hinstDLL, "S7200PlcRun"); mPlcStop = (pPlcStop)GetProcAddress(hinstDLL, "S7200PlcStop"); mBitBin = (pBitBin)GetProcAddress(hinstDLL, "DecBitBin"); m16I_8h = (p16I_8h)GetProcAddress(hinstDLL, "Int16ToInt_8h"); m16I_8l = (p16I_8l)GetProcAddress(hinstDLL, "Int16ToInt_8l"); m8I_16I = (p8I_16I)GetProcAddress(hinstDLL, "Int8ToInt16"); m32I_16h = (p32I_16h)GetProcAddress(hinstDLL, "Int32ToInt_16h"); m32I_16l = (p32I_16l)GetProcAddress(hinstDLL, "Int32ToInt_16l"); m16I_32I = (p16I_32I)GetProcAddress(hinstDLL, "Int16ToInt32"); m32f_16h = (p32f_16h)GetProcAddress(hinstDLL, "Float32ToInt_16h"); m32f_16l = (p32f_16l)GetProcAddress(hinstDLL, "Float32ToInt_16l"); m16I_32f = (p16I_32f)GetProcAddress(hinstDLL, "Int16ToFloat32"); AfxMessageBox(L"S7200_PPI.dll已成功载入!"); } else { AfxMessageBox(L"没找到S7200_PPI.dll!"); SendMessage(WM_CLOSE); } } /////////////////////////////////////////////////////////// ```
如何用delphi xe设计文档阅读器
如何用delphi xe设计文档阅读器,求高手赐教!!!!!!!!!1
急!Delphi7程序的窗体运行未显示,求解
自己写了一个Delphi7程序,可是呢,运行之后,窗体没有显示出来,都不知道为什么。![图片](https://img-ask.csdn.net/upload/201705/21/1495350958_40753.jpg)
delphi生成验证码 求源码
本人在用delphi做一个登录界面,想实现有验证码的功能。(随机生成一组数字)但是找不到源代码,求大神提供链接地址或源码,谢谢!
爬虫福利二 之 妹子图网MM批量下载
爬虫福利一:27报网MM批量下载    点击 看了本文,相信大家对爬虫一定会产生强烈的兴趣,激励自己去学习爬虫,在这里提前祝:大家学有所成! 目标网站:妹子图网 环境:Python3.x 相关第三方模块:requests、beautifulsoup4 Re:各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径,使用 python xxx.py 或IDE运行即可。
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、PDF搜索网站推荐 对于大部
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 顺便拉下票,我在参加csdn博客之星竞选,欢迎投票支持,每个QQ或者微信每天都可以投5票,扫二维码即可,http://m234140.nofollow.ax.
Vue + Spring Boot 项目实战(十四):用户认证方案与完善的访问拦截
本篇文章主要讲解 token、session 等用户认证方案的区别并分析常见误区,以及如何通过前后端的配合实现完善的访问拦截,为下一步权限控制的实现打下基础。
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在2008年11月1日由中本聪发表比特币白皮书,文中提出了一种去中心化的电子记账系统,我们平时的电子现金是银行来记账,因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述,这一层面介绍的文章很多,本文主要从更深层的技术原理角度进行介绍。 二、问题引入  假设现有4个人
程序员接私活怎样防止做完了不给钱?
首先跟大家说明一点,我们做 IT 类的外包开发,是非标品开发,所以很有可能在开发过程中会有这样那样的需求修改,而这种需求修改很容易造成扯皮,进而影响到费用支付,甚至出现做完了项目收不到钱的情况。 那么,怎么保证自己的薪酬安全呢? 我们在开工前,一定要做好一些证据方面的准备(也就是“讨薪”的理论依据),这其中最重要的就是需求文档和验收标准。一定要让需求方提供这两个文档资料作为开发的基础。之后开发
网页实现一个简单的音乐播放器(大佬别看。(⊙﹏⊙))
今天闲着无事,就想写点东西。然后听了下歌,就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 欢迎 改进 留言。 演示地点跳到演示地点 html代码如下`&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;title&gt;music&lt;/title&gt; &lt;meta charset="utf-8"&gt
Python十大装B语法
Python 是一种代表简单思想的语言,其语法相对简单,很容易上手。不过,如果就此小视 Python 语法的精妙和深邃,那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点,并附上详细的实例代码。如能在实战中融会贯通、灵活使用,必将使代码更为精炼、高效,同时也会极大提升代码B格,使之看上去更老练,读起来更优雅。 1. for - else 什么?不是 if 和 else 才
数据库优化 - SQL优化
前面一篇文章从实例的角度进行数据库优化,通过配置一些参数让数据库性能达到最优。但是一些“不好”的SQL也会导致数据库查询变慢,影响业务流程。本文从SQL角度进行数据库优化,提升SQL运行效率。 判断问题SQL 判断SQL是否有问题时可以通过两个表象进行判断: 系统级别表象 CPU消耗严重 IO等待严重 页面响应时间过长
2019年11月中国大陆编程语言排行榜
2019年11月2日,我统计了某招聘网站,获得有效程序员招聘数据9万条。针对招聘信息,提取编程语言关键字,并统计如下: 编程语言比例 rank pl_ percentage 1 java 33.62% 2 c/c++ 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7
通俗易懂地给女朋友讲:线程池的内部原理
餐厅的约会 餐盘在灯光的照耀下格外晶莹洁白,女朋友拿起红酒杯轻轻地抿了一小口,对我说:“经常听你说线程池,到底线程池到底是个什么原理?”我楞了一下,心里想女朋友今天是怎么了,怎么突然问出这么专业的问题,但做为一个专业人士在女朋友面前也不能露怯啊,想了一下便说:“我先给你讲讲我前同事老王的故事吧!” 大龄程序员老王 老王是一个已经北漂十多年的程序员,岁数大了,加班加不动了,升迁也无望,于是拿着手里
经典算法(5)杨辉三角
写在前面: 我是 扬帆向海,这个昵称来源于我的名字以及女朋友的名字。我热爱技术、热爱开源、热爱编程。技术是开源的、知识是共享的。 这博客是对自己学习的一点点总结及记录,如果您对 Java、算法 感兴趣,可以关注我的动态,我们一起学习。 用知识改变命运,让我们的家人过上更好的生活。 目录一、杨辉三角的介绍二、杨辉三角的算法思想三、代码实现1.第一种写法2.第二种写法 一、杨辉三角的介绍 百度
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹
面试官:你连RESTful都不知道我怎么敢要你?
面试官:了解RESTful吗? 我:听说过。 面试官:那什么是RESTful? 我:就是用起来很规范,挺好的 面试官:是RESTful挺好的,还是自我感觉挺好的 我:都挺好的。 面试官:… 把门关上。 我:… 要干嘛?先关上再说。 面试官:我说出去把门关上。 我:what ?,夺门而去 文章目录01 前言02 RESTful的来源03 RESTful6大原则1. C-S架构2. 无状态3.统一的接
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看
SQL-小白最佳入门sql查询一
一 说明 如果是初学者,建议去网上寻找安装Mysql的文章安装,以及使用navicat连接数据库,以后的示例基本是使用mysql数据库管理系统; 二 准备前提 需要建立一张学生表,列分别是id,名称,年龄,学生信息;本示例中文章篇幅原因SQL注释略; 建表语句: CREATE TABLE `student` ( `id` int(11) NOT NULL AUTO_INCREMENT, `
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // dosho
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,
程序员:我终于知道post和get的区别
IT界知名的程序员曾说:对于那些月薪三万以下,自称IT工程师的码农们,其实我们从来没有把他们归为我们IT工程师的队伍。他们虽然总是以IT工程师自居,但只是他们一厢情愿罢了。 此话一出,不知激起了多少(码农)程序员的愤怒,却又无可奈何,于是码农问程序员。 码农:你知道get和post请求到底有什么区别? 程序员:你看这篇就知道了。 码农:你月薪三万了? 程序员:嗯。 码农:你是怎么做到的? 程序员:
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU
加快推动区块链技术和产业创新发展,2019可信区块链峰会在京召开
      11月8日,由中国信息通信研究院、中国通信标准化协会、中国互联网协会、可信区块链推进计划联合主办,科技行者协办的2019可信区块链峰会将在北京悠唐皇冠假日酒店开幕。   区块链技术被认为是继蒸汽机、电力、互联网之后,下一代颠覆性的核心技术。如果说蒸汽机释放了人类的生产力,电力解决了人类基本的生活需求,互联网彻底改变了信息传递的方式,区块链作为构造信任的技术有重要的价值。   1
程序员把地府后台管理系统做出来了,还有3.0版本!12月7号最新消息:已在开发中有github地址
第一幕:缘起 听说阎王爷要做个生死簿后台管理系统,我们派去了一个程序员…… 996程序员做的梦: 第一场:团队招募 为了应对地府管理危机,阎王打算找“人”开发一套地府后台管理系统,于是就在地府总经办群中发了项目需求。 话说还是中国电信的信号好,地府都是满格,哈哈!!! 经常会有外行朋友问:看某网站做的不错,功能也简单,你帮忙做一下? 而这次,面对这样的需求,这个程序员
Android 9.0系统新特性,对刘海屏设备进行适配
其实Android 9.0系统已经是去年推出的“老”系统了,这个系统中新增了一个比较重要的特性,就是对刘海屏设备进行了支持。一直以来我也都有打算针对这个新特性好好地写一篇文章,但是为什么直到拖到了Android 10.0系统都发布了才开始写这篇文章呢?当然,一是因为我这段时间确实比较忙,今年几乎绝大部分的业余时间都放到写新书上了。但是最主要的原因并不是这个,而是因为刘海屏设备的适配存在一定的特殊性
网易云6亿用户音乐推荐算法
网易云音乐是音乐爱好者的集聚地,云音乐推荐系统致力于通过 AI 算法的落地,实现用户千人千面的个性化推荐,为用户带来不一样的听歌体验。 本次分享重点介绍 AI 算法在音乐推荐中的应用实践,以及在算法落地过程中遇到的挑战和解决方案。 将从如下两个部分展开: AI 算法在音乐推荐中的应用 音乐场景下的 AI 思考 从 2013 年 4 月正式上线至今,网易云音乐平台持续提供着:乐屏社区、UGC
【技巧总结】位运算装逼指南
位算法的效率有多快我就不说,不信你可以去用 10 亿个数据模拟一下,今天给大家讲一讲位运算的一些经典例子。不过,最重要的不是看懂了这些例子就好,而是要在以后多去运用位运算这些技巧,当然,采用位运算,也是可以装逼的,不信,你往下看。我会从最简单的讲起,一道比一道难度递增,不过居然是讲技巧,那么也不会太难,相信你分分钟看懂。 判断奇偶数 判断一个数是基于还是偶数,相信很多人都做过,一般的做法的代码如下
日均350000亿接入量,腾讯TubeMQ性能超过Kafka
整理 | 夕颜出品 | AI科技大本营(ID:rgznai100) 【导读】近日,腾讯开源动作不断,相继开源了分布式消息中间件TubeMQ,基于最主流的 OpenJDK8开发的
8年经验面试官详解 Java 面试秘诀
    作者 | 胡书敏 责编 | 刘静 出品 | CSDN(ID:CSDNnews) 本人目前在一家知名外企担任架构师,而且最近八年来,在多家外企和互联网公司担任Java技术面试官,前后累计面试了有两三百位候选人。在本文里,就将结合本人的面试经验,针对Java初学者、Java初级开发和Java开发,给出若干准备简历和准备面试的建议。   Java程序员准备和投递简历的实
面试官如何考察你的思维方式?
1.两种思维方式在求职面试中,经常会考察这种问题:北京有多少量特斯拉汽车? 某胡同口的煎饼摊一年能卖出多少个煎饼? 深圳有多少个产品经理? 一辆公交车里能装下多少个乒乓球? 一
相关热词 c#处理浮点数 c# 生成字母数字随机数 c# 动态曲线 控件 c# oracle 开发 c#选择字体大小的控件 c# usb 批量传输 c#10进制转8进制 c#转base64 c# 科学计算 c#下拉列表获取串口
立即提问