delphi 打开控制面板 下面的 设备和打印机 窗口?

图片说明

用代码打开上图的窗口。

1个回答

shellexecute / winexec 调用 control printers

手上没有delphi,用C#演示下
图片说明

caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 无论winexec/shellexecute还是createprocess都是可以的。关键是你要知道原理是什么
一年多之前 回复
a814123
814123 WinExec('control printers',SW_RESTORE); 这样行了,谢谢!
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: ShellExecute(Handle, 'open', 'control','printers', nil, SW_SHOW);
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 你完全没看我的回答,你一直在和我讨论也不知道你在哪里看到的什么另外一个代码。然后和我说为什么不行。我只知道我的办法行,我怎么知道他的办法怎么不行。
一年多之前 回复
a814123
814123 ShellExecute(Handle, 'open', 'control printers', nil, nil, SW_SHOW);
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: control printers啊
一年多之前 回复
a814123
814123 我不会C看不懂你的代码啊
一年多之前 回复
a814123
814123 信你的啊,我要怎么调用?
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 你按照我的方法写,肯定是可以的,但是你就是不信,非要按照网上那些垃圾文章里的写,你让我怎么办?
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 一样的原理。实在不明白“'RunDLL32.exe Shell32.dll,Control_RunDLL”从哪里来的,你看我的程序里有这些么???
一年多之前 回复
a814123
814123 我用的DELPHI啊 大哥,你发来的是C
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 你没按照我写的调用,当然不行。
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 'RunDLL32.exe Shell32.dll,Control_RunDLL 是什么鬼
一年多之前 回复
a814123
814123 没反应
一年多之前 回复
a814123
814123 回复caozhy: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL control printers', SW_SHOWNORMAL);
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 你在命令行里执行 control printers 能打开么?如果能,就是你调用没写对。如果不能,就是你系统有问题。我这里都试过了,截图也贴出来了。
一年多之前 回复
a814123
814123 测试了下 不成功 网上也看到了也没有成功 晕哦
一年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi 打开打印机属性?
![图片说明](https://img-ask.csdn.net/upload/201710/24/1508857757_937176.jpg) 是单击按钮 直接打开属性页面,不是打印机设置。
Delphi 控制条形码打印机,打印机没有输出任何东西
您好,请问哪位大神有利用delphi控制过条码打印机或钱柜的。我的打印机使用下列语句,一点反应都没有。但是如果把raw改成text,则打印机会直接将命令用文字的方式输出! procedure WriteRawStringToPrinter(PrinterName, S: String); var Handle: THandle; N: DWord; DocInfo1: TDocInfo1A; begin if not OpenPrinter(PChar(PrinterName), Handle, nil) then raise Exception.Create('Open Printer Fail!'); with DocInfo1 do begin pDocName := PAnsiChar('BarCode Label'); pOutputFile := nil; pDatatype := 'RAW'; end; // 把換行及回車先處理掉試試 s := StringReplace(s,CHR(10),'',[rfReplaceAll]); s := StringReplace(s,CHR(13),'',[rfReplaceAll]); StartDocPrinter(Handle, 1, @DocInfo1); StartPagePrinter(Handle); //WritePrinter(Handle, PChar(S), Length(S), N); WritePrinter(Handle, PChar('^XA^FO100,100^BY3^B3N,N,100,Y,N^FD123ABC^FS^XZ'), Length(S), N); EndPagePrinter(Handle); EndDocPrinter(Handle); ClosePrinter(Handle); end;
C++中的类静态变量在delphi7中怎么实现。
请教一下,类TCat,TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了,怎么弄??
Delphi 实现类似QQ聊天窗口
Delphi如何实现类似QQ的聊天窗口,需要聊天气泡和图文并茂的窗口
如何在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);
delphi xe10 控件面板的win2控件组不见了,怎么找回来?
delphi xe10 控件面板的win2控件组不见了,怎么找回来? 打开我的一个程序,控件面板的win2控件组不见了。但打开其他的程序,所有控件都在。为什么?
delphi printdialog1的打印上边距,打印出来的东西往下一点?
delphi printdialog1的打印怎么设置上边距,打印出来的东西往下一点? 网上抄的代码 procedure TForm3.Button1Click(Sender: TObject); var line:integer; //定义一个line变量,用于下面控制打印各行内容 files:system.text; //告诉系统说files是文本文件,是要打印机打印的文件 begin if printdialog1.execute then //当printdialog1执行后 begin assignprn(files); //通过assignprn函数将要打印的文件交给打印机 rewrite(files); //让打印机打开文件准备打印 printer.Canvas.font:=memo1.font; //canvas是打印机的画板,用来打印文件的,直接设置字体 for line:=0 to memo1.lines.count-1 do //以下是循环memo1的每个行 begin writeln(files,memo1.lines[line]); //打印每行内容 writeln(文件名,文本的某个行); end; system.close(files); //打印完了就关闭要打印的文件 end; end;
delphi dbgrideh的导出功能,导出某几列?
delphi dbgrideh的导出功能,导出某几列? 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的, 现在我只想导出第2列 至 第5列 其他列的不要,怎么实现啊。 有知道的老师吗?
delphi如何在条码打印机上打字
新手刚刚学习delphi7.0,做一个项目,要求用条码打印机打印标签,比如在标签纸上面打印‘12345’我用的是38宽50高的标签打印纸,用了网上一段代码,为什么走纸正常就是打印不出来,打印都是空白的,请高手指点,另外下面代码什么意思啊,为什么就是不打印不了标签 procedure TForm1.FormCreate(Sender: TObject); begin BarCodeCtrl1.Value := '012345678'; BarCodeCtrl1.Width := 400; BarCodeCtrl1.Height := 100; end; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; sR,tR:TRect; begin //记录图像 bmp := TBitmap.Create; sR := Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left + BarCodeCtrl1.Width, BarCodeCtrl1.Top + BarCodeCtrl1.Height); tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height); bmp.Width := BarCodeCtrl1.Width; bmp.Height := BarCodeCtrl1.Height; bmp.Canvas.CopyRect(tR,Canvas,sR); bmp.SaveToFile('c:\1.bmp'); printer.BeginDoc; printer.Canvas.Font.Size := 15; printer.Canvas.TextOut(10,10,'Barcodestrl demo'); printer.Canvas.Draw(20,100,bmp); printer.EndDoc; bmp.free; end;
delphi 可以通过FDQuery来执行导入数据库操作吗?
delphi 可以通过FDQuery来执行导入数据库操作吗? 如题: 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢,麻烦老是指点。
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 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导致,但是这种情况如何处理?是否有其他代替的方法?
求助 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 ```
使用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如何通过VISA与USB设备通信
Private Sub Command1_Click() Dim defrm As Long Dim vi As Long ' 获得visa的usb资源 Call viOpenDefaultRM(defrm) ' 打开设备 Call viOpen(defrm, "USB0::0x1AB1::0x0E11::DP8F192200227::INSTR", 0, 0, vi) '发送设置命令 Call viVPrintf(vi, ":OUTP CH1,ON" + Chr$(10), 0) ' 关闭资源 Call viClose(vi) Call viClose(defrm) End Sub 以上是VB编写的通过USB控制DP831直流电源的程序,测试没问题。但我将该段代码转换成Delphi后,运行报错,请高手指点下迷津!以下是我的Delphi代码 function viOpenDefaultRM(sesn1:PLongint):Longint;stdcall external 'visa32.dll'; function viOpen(sesn1:PLongint;rsrcName:PChar;acessMode:Longint;timeout:Longint;sesn2:PLongint):Longint;stdcall external 'visa32.dll'; function viPrintf( vi:PLongint; writeFmt:pchar;ss:Longint): integer; Cdecl; external 'VISA32.DLL' ; function viClose(sesn:PLongint):Longint;stdcall external 'visa32.dll'; procedure TForm1.Button1Click(Sender: TObject); var defrm,vi:PLongint; begin // 获得visa的usb资源 viOpenDefaultRM(defrm); //打开设备 viOpen(defrm,'USB0::0x1AB1::0x0E11::DP8F192200227::INSTR', 0, 0, vi); //发送设置命令 viPrintf(vi,':OUTP CH1,ON'+#10, 0); viClose(vi); viClose(defrm); end; 不知是哪里出了问题?
delphi 实时获取命令行/控制台程序的输出
现在有一个控制台程序B.EXE,为C语言编写,每隔1秒输出一个随机字符串,并printf输出到控制台。 我想编写一个delphi程序,来实时获取这个内容,但是如果通过管道的话,是可以获取,但是不能实时显示,并且原控制台也不能输出了。我想要的效果是不影响控制台程序运行的情况下获取他的printf输出。 目前自己的思路是获得到控制台的窗口句柄,然后遍历子控件,但是无法获取。貌似控制台是没有子控件的。又想通过HOOK来实现,发现也是无法HOOK的。 现在求高人指点一下,如何才能获得一个控制台的输出。而且不能影响原程序的运行与输出。也就是说写一个定时器程序,每秒抓取一次内容。但不能干扰B程序的运行。
Delphi rave如何选择指定页打印
Delphi rave如何选择指定页打印,打印预览的时候选择了打印2到2,或3到4,但总是从第一页开始打印,请问各位大侠,怎么解决,谢谢!
delphi dbgrid的双击问题
delphi 怎么在一个Form中点击一个按钮弹出一个查询窗口,在查询窗口有个DBgrid,怎么样双击dbgrid 将dbgrid里面各列的值返回给Form中的Edit并且关闭查询窗口,手动点X关闭查询窗口是则 不执行该操作
delphi 用控件打开pdf文件无法读取pdf里的表单信息
我用的delphi7 用的是破解版的foxit_ax_pro.ocx文件版本3.0.1.2506,用OpenFile打开一个包含表单的pdf文件,浏览正常,但用代码访问时出错(下面第二行,FNameMI存在): frm:=FoxitReaderSDK1.GetCurrentForm(); ShowMessage(frm.GetFieldByName('FNameMI').Value) ; 变成无法获取表单信息。另外单独打开该pdf文件可以提交表单数据到url但是用这个控件,同样的按钮,提交可以,但获取不到表单数据。 有哪位高手能解答下,不胜感谢!!
delphi 桌面透明小窗口
delphi程序,像桌面小工具一样, 不会被显示桌面隐藏, 只在桌面显示,其他地方不显示。 并且要求窗体是透明的。。
爬虫福利二 之 妹子图网MM批量下载
爬虫福利一:27报网MM批量下载    点击 看了本文,相信大家对爬虫一定会产生强烈的兴趣,激励自己去学习爬虫,在这里提前祝:大家学有所成! 目标网站:妹子图网 环境:Python3.x 相关第三方模块:requests、beautifulsoup4 Re:各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径,使用 python xxx.py 或IDE运行即可。
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 顺便拉下票,我在参加csdn博客之星竞选,欢迎投票支持,每个QQ或者微信每天都可以投5票,扫二维码即可,http://m234140.nofollow.ax.
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在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)杨辉三角
杨辉三角 是经典算法,这篇博客对它的算法思想进行了讲解,并有完整的代码实现。
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹
面试官:你连RESTful都不知道我怎么敢要你?
面试官:了解RESTful吗? 我:听说过。 面试官:那什么是RESTful? 我:就是用起来很规范,挺好的 面试官:是RESTful挺好的,还是自我感觉挺好的 我:都挺好的。 面试官:… 把门关上。 我:… 要干嘛?先关上再说。 面试官:我说出去把门关上。 我:what ?,夺门而去 文章目录01 前言02 RESTful的来源03 RESTful6大原则1. C-S架构2. 无状态3.统一的接
JDK12 Collectors.teeing 你真的需要了解一下
前言 在 Java 12 里面有个非常好用但在官方 JEP 没有公布的功能,因为它只是 Collector 中的一个小改动,它的作用是 merge 两个 collector 的结果,这句话显得很抽象,老规矩,我们先来看个图(这真是一个不和谐的图????): 管道改造经常会用这个小东西,通常我们叫它「三通」,它的主要作用就是将 downstream1 和 downstre...
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看
SQL-小白最佳入门sql查询一
不要偷偷的查询我的个人资料,即使你再喜欢我,也不要这样,真的不好;
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
【图解经典算法题】如何用一行代码解决约瑟夫环问题
约瑟夫环问题算是很经典的题了,估计大家都听说过,然后我就在一次笔试中遇到了,下面我就用 3 种方法来详细讲解一下这道题,最后一种方法学了之后保证让你可以让你装逼。 问题描述:编号为 1-N 的 N 个士兵围坐在一起形成一个圆圈,从编号为 1 的士兵开始依次报数(1,2,3…这样依次报),数到 m 的 士兵会被杀死出列,之后的士兵再从 1 开始报数。直到最后剩下一士兵,求这个士兵的编号。 1、方...
致 Python 初学者
欢迎来到“Python进阶”专栏!来到这里的每一位同学,应该大致上学习了很多 Python 的基础知识,正在努力成长的过程中。在此期间,一定遇到了很多的困惑,对未来的学习方向感到迷茫。我非常理解你们所面临的处境。我从2007年开始接触 python 这门编程语言,从2009年开始单一使用 python 应对所有的开发工作,直至今天。回顾自己的学习过程,也曾经遇到过无数的困难,也曾经迷茫过、困惑过。开办这个专栏,正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,...
程序员:我终于知道post和get的区别
是一个老生常谈的话题,然而随着不断的学习,对于以前的认识有很多误区,所以还是需要不断地总结的,学而时习之,不亦说乎
GitHub标星近1万:只需5秒音源,这个网络就能实时“克隆”你的声音
作者 | Google团队 译者 | 凯隐 编辑 | Jane 出品 | AI科技大本营(ID:rgznai100) 本文中,Google 团队提出了一种文本语音合成(text to speech)神经系统,能通过少量样本学习到多个不同说话者(speaker)的语音特征,并合成他们的讲话音频。此外,对于训练时网络没有接触过的说话者,也能在不重新训练的情况下,仅通过未知...
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU...
加快推动区块链技术和产业创新发展,2019可信区块链峰会在京召开
11月8日,由中国信息通信研究院、中国通信标准化协会、中国互联网协会、可信区块链推进计划联合主办,科技行者协办的2019可信区块链峰会将在北京悠唐皇冠假日酒店开幕。   区块链技术被认为是继蒸汽机、电力、互联网之后,下一代颠覆性的核心技术。如果说蒸汽机释放了人类的生产力,电力解决了人类基本的生活需求,互联网彻底改变了信息传递的方式,区块链作为构造信任的技术有重要的价值。   1...
程序员把地府后台管理系统做出来了,还有3.0版本!12月7号最新消息:已在开发中有github地址
第一幕:缘起 听说阎王爷要做个生死簿后台管理系统,我们派去了一个程序员…… 996程序员做的梦: 第一场:团队招募 为了应对地府管理危机,阎王打算找“人”开发一套地府后台管理系统,于是就在地府总经办群中发了项目需求。 话说还是中国电信的信号好,地府都是满格,哈哈!!! 经常会有外行朋友问:看某网站做的不错,功能也简单,你帮忙做一下? 而这次,面对这样的需求,这个程序员...
网易云6亿用户音乐推荐算法
网易云音乐是音乐爱好者的集聚地,云音乐推荐系统致力于通过 AI 算法的落地,实现用户千人千面的个性化推荐,为用户带来不一样的听歌体验。 本次分享重点介绍 AI 算法在音乐推荐中的应用实践,以及在算法落地过程中遇到的挑战和解决方案。 将从如下两个部分展开: AI算法在音乐推荐中的应用 音乐场景下的 AI 思考 从 2013 年 4 月正式上线至今,网易云音乐平台持续提供着:乐屏社区、UGC...
【技巧总结】位运算装逼指南
位算法的效率有多快我就不说,不信你可以去用 10 亿个数据模拟一下,今天给大家讲一讲位运算的一些经典例子。不过,最重要的不是看懂了这些例子就好,而是要在以后多去运用位运算这些技巧,当然,采用位运算,也是可以装逼的,不信,你往下看。我会从最简单的讲起,一道比一道难度递增,不过居然是讲技巧,那么也不会太难,相信你分分钟看懂。 判断奇偶数 判断一个数是基于还是偶数,相信很多人都做过,一般的做法的代码如下...
【管理系统课程设计】美少女手把手教你后台管理
【文章后台管理系统】URL设计与建模分析+项目源码+运行界面 栏目管理、文章列表、用户管理、角色管理、权限管理模块(文章最后附有源码) 1. 这是一个什么系统? 1.1 学习后台管理系统的原因 随着时代的变迁,现如今各大云服务平台横空出世,市面上有许多如学生信息系统、图书阅读系统、停车场管理系统等的管理系统,而本人家里就有人在用烟草销售系统,直接在网上完成挑选、购买与提交收货点,方便又快捷。 试想,若没有烟草销售系统,本人家人想要购买烟草,还要独自前往药...
4G EPS 第四代移动通信系统
目录 文章目录目录4G 与 LTE/EPCLTE/EPC 的架构E-UTRANE-UTRAN 协议栈eNodeBEPCMMES-GWP-GWHSSLTE/EPC 协议栈概览 4G 与 LTE/EPC 4G,即第四代移动通信系统,提供了 3G 不能满足的无线网络宽带化,主要提供数据(上网)业务。而 LTE(Long Term Evolution,长期演进技术)是电信领域用于手机及数据终端的高速无线通...
相关热词 c#选择结构应用基本算法 c# 收到udp包后回包 c#oracle 头文件 c# 序列化对象 自定义 c# tcp 心跳 c# ice连接服务端 c# md5 解密 c# 文字导航控件 c#注册dll文件 c#安装.net
立即提问