delphi 实时获取命令行/控制台程序的输出 20C

现在有一个控制台程序B.EXE,为C语言编写,每隔1秒输出一个随机字符串,并printf输出到控制台。
我想编写一个delphi程序,来实时获取这个内容,但是如果通过管道的话,是可以获取,但是不能实时显示,并且原控制台也不能输出了。我想要的效果是不影响控制台程序运行的情况下获取他的printf输出。
目前自己的思路是获得到控制台的窗口句柄,然后遍历子控件,但是无法获取。貌似控制台是没有子控件的。又想通过HOOK来实现,发现也是无法HOOK的。

现在求高人指点一下,如何才能获得一个控制台的输出。而且不能影响原程序的运行与输出。也就是说写一个定时器程序,每秒抓取一次内容。但不能干扰B程序的运行。

2个回答

我的说明已经很清楚了。用管道不能实现效果。使用管道后,原控制台就什么都没有了。

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
C++中的类静态变量在delphi7中怎么实现。
请教一下,类TCat,TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了,怎么弄??
求助 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 dbgrideh的导出功能,导出某几列?
delphi dbgrideh的导出功能,导出某几列? 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的, 现在我只想导出第2列 至 第5列 其他列的不要,怎么实现啊。 有知道的老师吗?
控制win7 混音器中的程序静音 求delphi 实现方案
unit MMDevApi; interface uses Windows, ActiveX, ComObj; const CLASS_IMMDeviceEnumerator : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}'; IID_IMMDeviceEnumerator : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}'; IID_IMMDevice : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}'; IID_IMMDeviceCollection : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}'; IID_IAudioEndpointVolume : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}'; IID_IAudioMeterInformation : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}'; IID_IAudioEndpointVolumeCallback : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}'; IID_IAudioSessionManager : TGUID = '{BFA971F1-4D5E-40BB-935E-967039BFBEE4}'; IID_IAudioSessionManager2 : TGUID = '{77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F}'; DEVICE_STATE_ACTIVE = $00000001; DEVICE_STATE_UNPLUGGED = $00000002; DEVICE_STATE_NOTPRESENT = $00000004; DEVICE_STATEMASK_ALL = $00000007; type EDataFlow = TOleEnum; const eRender = $00000000; eCapture = $00000001; eAll = $00000002; EDataFlow_enum_count = $00000003; type ERole = TOleEnum; const eConsole = $00000000; eMultimedia = $00000001; eCommunications = $00000002; ERole_enum_count = $00000003; type IAudioSessionControl = interface(IUnknown) ['{F4B1A599-7266-4319-A8CA-E70ACB11E8CD}'] function GetDisplayName(out str:string ): Integer; stdcall; //可能有错 end; IAudioSessionControl2 = interface(IAudioSessionControl) ['{bfb7ff88-7239-4fc9-8fa2-07c950be9c6d}'] function GetProcessId(out pRetVal: integer): Integer; stdcall; function GetSession(const SessionCount: integer; out Session: IAudioSessionControl): Integer; stdcall; end; IAudioSessionEnumerator = interface(IUnknown) ['{E2F5BB11-0570-40CA-ACDD-3AA01277DEE8}'] function GetCount(out SessionCount: integer): Integer; stdcall; function GetSession(const SessionCount: integer; out Session: IAudioSessionControl): Integer; stdcall; end; IAudioSessionNotification = interface(IUnknown) ['{641DD20B-4D41-49CC-ABA3-174B9477BB08}'] end; ISimpleAudioVolume = interface(IUnknown) ['{87CE5498-68D6-44E5-9215-6DA47EF883D8}'] function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall; function GetMute(out bMute: Boolean): Integer; stdcall; function SetMasterVolume(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall; function GetMasterVolume(out fLevelDB: single): Integer; stdcall; end; IAudioSessionManager = interface(IUnknown) ['{BFA971F1-4D5E-40BB-935E-967039BFBEE4}'] function GetSessionEnumerator(out SessionEnum: IAudioSessionEnumerator): HResult; stdcall; end; type IAudioSessionManager2 = interface(IAudioSessionManager) ['{77AA99A0-1BD6-484F-8BC7-2C654C9A9B6F}'] function GetSessionEnumerator(out SessionEnum: IAudioSessionEnumerator): HResult; stdcall; // function RegisterSessionNotification(SessionNotification: IAudioSessionNotification): HResult; stdcall; // function UnregisterSessionNotification(SessionNotification: IAudioSessionNotification): HResult; stdcall; // function RegisterDuckNotification(const sessionID: LPCWSTR; const duckNotification: IAudioVolumeDuckNotification): HResult; stdcall; // function UnregisterDuckNotification(const duckNotification: IAudioVolumeDuckNotification): HResult; stdcall; end; //================================== IAudioEndpointVolumeCallback = interface(IUnknown) ['{657804FA-D6AD-4496-8A60-352752AF4F89}'] end; IAudioEndpointVolume = interface(IUnknown) ['{5CDF2C82-841E-4546-9722-0CF74078229A}'] function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall; function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall; function GetChannelCount(out PInteger): Integer; stdcall; function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall; function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall; function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall; function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall; function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall; function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall; function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall; function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall; function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall; function GetMute(out bMute: Boolean): Integer; stdcall; function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall; function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall; function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall; function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall; function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall; end; IAudioMeterInformation = interface(IUnknown) ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}'] end; IPropertyStore = interface(IUnknown) end; IMMDevice = interface(IUnknown) ['{D666063F-1587-4E43-81F1-B948E807363F}'] function Activate(const refId: TGUID; dwClsCtx: DWORD; pActivationParams: PInteger; out pSessionManager:IAudioSessionManager2): Integer; stdCall; // out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall; function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall; function GetId(out ppstrId: PLPWSTR): Hresult; stdcall; function GetState(out State: Integer): Hresult; stdcall; end; IMMDeviceCollection = interface(IUnknown) ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}'] end; IMMNotificationClient = interface(IUnknown) ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}'] end; IMMDeviceEnumerator = interface(IUnknown) ['{A95664D2-9614-4F35-A746-DE8DB63617E6}'] function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall; function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall; function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall; function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall; end; //====================================== implementation end. //========================================== procedure TForm2.btntestClick(Sender: TObject); var deviceEnumerator: IMMDeviceEnumerator; defaultDevice: IMMDevice; VolumeLevel: Single; EndpointVolume: IAudioEndpointVolume; sess:TObject ; Session:IAudioSessionManager2; sessionEnumerator:IAudioSessionEnumerator ; pinter:pointer; i,int1:Integer; ctl:IAudioSessionControl; str:string; begin CoInitialize( nil ); // CoCreateInstance( CLSID_MMDeviceEnumerator, nil, CLSCTX_ALL, IID_IMMDeviceEnumerator, DeviceEnumerator ); // DeviceEnumerator.GetDefaultAudioEndpoint( eRender, eMultimedia, DefaultDevice ); CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_ALL, IID_IMMDeviceEnumerator, deviceEnumerator); deviceEnumerator.GetDefaultAudioEndpoint(eRender, eMultimedia, defaultDevice); Memo1.Lines.Add('defaultDevice = '); // defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume); if defaultDevice.Activate(IID_IAudioSessionManager2, 0, nil, Session )=S_OK then begin Memo1.Lines.Add('Activate IID_IAudioSessionManager2 = ok '); end else begin Memo1.Lines.Add('Activate IID_IAudioSessionManager2 = 出错 '); Exit; end; Session.GetSessionEnumerator(sessionEnumerator) ; // **上面这句出错,应是找不到这个函数接口** Memo1.Lines.Add('GetSessionEnumerator'); sessionEnumerator.GetCount(int1); for i:=1 to int1-1 do begin sessionEnumerator.GetSession(i,ctl); ctl.GetDisplayName(str); Memo1.Lines.Add(str); end; VolumeLevel := 0; endpointVolume.SetMute(True,nil); // endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil); // Caption := Format('%1.8f', [VolumeLevel]) end ; /////////////////////////////////////////////// Session.GetSessionEnumerator(sessionEnumerator) ; // 上面这句出错,应是找不到这个函数接口 求delphi 实现方案,完整的音量控制单元,并能控制混音器中程序的音量 参考c资料: 1,http://bbs.csdn.net/topics/390021167 2,http://bbs.csdn.net/topics/370044766 3, http://blog.csdn.net/yzxun/article/details/38519507?locationNum=1&fps=1
Delphi获取指定进程指定模块问题
请问Delphi如何获取指定进程的指定模块(例如dll文件),然后通过writeprocess来写入数据?感谢了。
delphi 获取dbgrideh某个单元格的左边距和上边距?
delphi 获取dbgrideh某个单元格的左边距和上边距? 我想实现单击某个单元格,出现一个下拉的COMBOBOX来选择内容,让这个COMBOBOX出现在当前编辑的单元格下面。 能实现吗,有没有代码参考。
PTA:查找书籍,运行输入不到所定个数
**给定n本书的名称和定价,本题要求编写程序,查找并输出其中定价最高和最低的书的名称和定价。** 输入格式: 输入第一行给出正整数n(<10),随后给出n本书的信息。每本书在一行中给出书名,即长度不超过30的字符串,随后一行中给出正实数价格。题目保证没有同样价格的书。 输出格式: 在一行中按照“价格, 书名”的格式先后输出价格最高和最低的书。价格保留2位小数。 输入样例: 3 Programming in C 21.5 Programming in VB 18.5 Programming in Delphi 25.0 输出样例: 25.00, Programming in Delphi 18.50, Programming in VB 程序清单: ``` #include<stdio.h> int main() { int n; scanf("%d",&n); struct book { float price; char a[30]; }; char a[30];int i,k,maxi,mini;struct book b[n]; for(i=0;i<n;i++) { for(k=0;;k++) { b[i].a[k]=getchar(); if(b[i].a[k]=='\n')break; } scanf("%f",&b[i].price); } for(i=0;i<n-1;i++) { if(b[i].price> b[i+1].price) { maxi=i;mini=i+1; } } printf("%.2f,%s\n",b[maxi].price,b[maxi].a); printf("%.2f,%s",b[mini].price,b[mini].a); return 0; } ``` 本人第一次使用结构体数据,请多指教~ 结果![图片说明](https://img-ask.csdn.net/upload/201911/23/1574505267_596929.png) 输入到vb按回车之后就跳转出输出了。达不到运行要求结果,求助~
Delphi的怎么获取当前的时间并且转换为精确到毫秒
最近有一个任务(使用Delphi开发),需要获取时间,并且精确到毫秒,并以人性化的方式展示出来,比如2015-08-17 19:32:00 800
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 可以通过FDQuery来执行导入数据库操作吗?
delphi 可以通过FDQuery来执行导入数据库操作吗? 如题: 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢,麻烦老是指点。
delphi mediaplayer 录音获取录音时长
Delphi使用mediaplayer 录制wav文件,如何获取录取的时长呢
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 生成的程序图标模糊?
我用64*64的图标 在桌面正常显示,放到DELPHI程序里,再生成EXE 放到桌面就模糊掉了。各位老师这个问题怎么破? ![图片说明](https://img-ask.csdn.net/upload/201809/21/1537515518_972214.png) 左边是程序图标 右边是原图标
WindowsServer2008运行Delphi6串口通讯程序问题
最近因迁移一套老系统,是N年前用Delphi6开发的串口通讯程序,该程序在 WindowsServer2000服务器上能正常运行。现在要把这套程序拷贝到一台新 的WindowsServer2008服务器上运行时,发现访问不要前端串口设备,经 检查发现问题的情况大概是这样的:程序中建立串口通讯的参数中波特率是2400, 这个参数用于新服务器上,就不能建立与前端串口设备的通讯,除非改为9600就 可以了(采集程序和前端设备是同一个没有改变)。 想请教大家的是: 为什么同样的程序,在WIN2000和WIN2008下运行会出现 这样的问题呢?如果不改源程序中的通讯参数(波特率),是否能解决呢?
关于delphi编写的程序在某些操作系统上运行出错的问题
大家好 本人从事程序测试工作3年左右 还属于菜鸟级别 目前遇到了一个比较棘手的问题 希望高手可以指点 关于delphi编写的程序在某些操作系统上运行出错的问题:同样的程序在xp系统可以正常运行 在win7某些系统可以 某些系统不行(即使是win7旗舰版32位正常安装的已经打上sp1补丁的系统) 所加的断点不起作用 不能够显示 直接抛系统错误(外部组件异常之类的) 希望精通delphi程序以及操作系统的高手可以指点下 如果可以远程就再好不过了 可以加我qq 或者加您qq 谢谢亲们~ 正在努力赚取C币中。。。。。
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;
现在的delphi xe7写的程序还能被反编译吗,望指教,谢谢。
现在的delphi xe7写的程序还能被反编译吗,望指教,谢谢。希望能提供相关的软件和说明,刚刚开始学逆向工程。
delphi日期控件怎么获取选中的时间
delphi日期控件怎么获取选中的时间,在控件中选了日期,怎么知道客户选了哪个日期呢?
相见恨晚的超实用网站
搞学习 知乎:www.zhihu.com 简答题:http://www.jiandati.com/ 网易公开课:https://open.163.com/ted/ 网易云课堂:https://study.163.com/ 中国大学MOOC:www.icourse163.org 网易云课堂:study.163.com 哔哩哔哩弹幕网:www.bilibili.com 我要自学网:www.51zxw
爬虫福利二 之 妹子图网MM批量下载
爬虫福利一:27报网MM批量下载    点击 看了本文,相信大家对爬虫一定会产生强烈的兴趣,激励自己去学习爬虫,在这里提前祝:大家学有所成! 目标网站:妹子图网 环境:Python3.x 相关第三方模块:requests、beautifulsoup4 Re:各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径,使用 python xxx.py 或IDE运行即可。
字节跳动视频编解码面经
引言 本文主要是记录一下面试字节跳动的经历。 三四月份投了字节跳动的实习(图形图像岗位),然后hr打电话过来问了一下会不会opengl,c++,shador,当时只会一点c++,其他两个都不会,也就直接被拒了。 七月初内推了字节跳动的提前批,因为内推没有具体的岗位,hr又打电话问要不要考虑一下图形图像岗,我说实习投过这个岗位不合适,不会opengl和shador,然后hr就说秋招更看重基础。我当时
开源一个功能完整的SpringBoot项目框架
福利来了,给大家带来一个福利。 最近想了解一下有关Spring Boot的开源项目,看了很多开源的框架,大多是一些demo或者是一个未成形的项目,基本功能都不完整,尤其是用户权限和菜单方面几乎没有完整的。 想到我之前做的框架,里面通用模块有:用户模块,权限模块,菜单模块,功能模块也齐全了,每一个功能都是完整的。 打算把这个框架分享出来,供大家使用和学习。 为什么用框架? 框架可以学习整体
源码阅读(19):Java中主要的Map结构——HashMap容器(下1)
(接上文《源码阅读(18):Java中主要的Map结构——HashMap容器(中)》) 3.4.4、HashMap添加K-V键值对(红黑树方式) 上文我们介绍了在HashMap中table数组的某个索引位上,基于单向链表添加新的K-V键值对对象(HashMap.Node&lt;K, V&gt;类的实例),但是我们同时知道在某些的场景下,HashMap中table数据的某个索引位上,数据是按照红黑树
c++制作的植物大战僵尸,开源,一代二代结合游戏
    此游戏全部由本人自己制作完成。游戏大部分的素材来源于原版游戏素材,少部分搜集于网络,以及自己制作。 此游戏为同人游戏而且仅供学习交流使用,任何人未经授权,不得对本游戏进行更改、盗用等,否则后果自负。 目前有六种僵尸和六种植物,植物和僵尸的动画都是本人做的。qq:2117610943 开源代码下载 提取码:3vzm 点击下载--&gt; 11月28日 新增四种植物 统一植物画风,全部修
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
Python——画一棵漂亮的樱花树(不同种樱花+玫瑰+圣诞树喔)
最近翻到一篇知乎,上面有不少用Python(大多是turtle库)绘制的树图,感觉很漂亮,我整理了一下,挑了一些我觉得不错的代码分享给大家(这些我都测试过,确实可以生成喔~) one 樱花树 动态生成樱花 效果图(这个是动态的): 实现代码 import turtle as T import random import time # 画樱花的躯干(60,t) def Tree(branch
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 顺便拉下票,我在参加csdn博客之星竞选,欢迎投票支持,每个QQ或者微信每天都可以投5票,扫二维码即可,http://m234140.nofollow.ax.
Python 基础(一):入门必备知识
目录1 标识符2 关键字3 引号4 编码5 输入输出6 缩进7 多行8 注释9 数据类型10 运算符10.1 常用运算符10.2 运算符优先级 1 标识符 标识符是编程时使用的名字,用于给变量、函数、语句块等命名,Python 中标识符由字母、数字、下划线组成,不能以数字开头,区分大小写。 以下划线开头的标识符有特殊含义,单下划线开头的标识符,如:_xxx ,表示不能直接访问的类属性,需通过类提供
深度学习图像算法在内容安全领域的应用
互联网给人们生活带来便利的同时也隐含了大量不良信息,防范互联网平台有害内容传播引起了多方面的高度关注。本次演讲从技术层面分享网易易盾在内容安全领域的算法实践经验,包括深度学习图
程序员接私活怎样防止做完了不给钱?
首先跟大家说明一点,我们做 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.统一的接
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
致 Python 初学者
欢迎来到“Python进阶”专栏!来到这里的每一位同学,应该大致上学习了很多 Python 的基础知识,正在努力成长的过程中。在此期间,一定遇到了很多的困惑,对未来的学习方向感到迷茫。我非常理解你们所面临的处境。我从2007年开始接触 python 这门编程语言,从2009年开始单一使用 python 应对所有的开发工作,直至今天。回顾自己的学习过程,也曾经遇到过无数的困难,也曾经迷茫过、困惑过。开办这个专栏,正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你
Python 编程实用技巧
Python是一门很灵活的语言,也有很多实用的方法,有时候实现一个功能可以用多种方法实现,我这里总结了一些常用的方法,并会持续更新。
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,...
程序员:我终于知道post和get的区别
是一个老生常谈的话题,然而随着不断的学习,对于以前的认识有很多误区,所以还是需要不断地总结的,学而时习之,不亦说乎
"狗屁不通文章生成器"登顶GitHub热榜,分分钟写出万字形式主义大作
GitHub 被誉为全球最大的同性交友网站,……,陪伴我们已经走过 10+ 年时间,它托管了大量的软件代码,同时也承载了程序员无尽的欢乐。 万字申请,废话报告,魔幻形式主义大作怎么写?兄dei,狗屁不通文章生成器了解一下。这个富有灵魂的项目名吸引了众人的目光。项目仅仅诞生一周,便冲上了GitHub趋势榜榜首(Js中文网 -前端进阶资源教程)、是榜首哦
推荐几款比较实用的工具,网站
1.盘百度PanDownload 这个云盘工具是免费的,可以进行资源搜索,提速(偶尔会抽风????) 不要去某站买付费的???? PanDownload下载地址 2.BeJSON 这是一款拥有各种在线工具的网站,推荐它的主要原因是网站简洁,功能齐全,广告相比其他广告好太多了 bejson网站 3.二维码美化 这个网站的二维码美化很好看,网站界面也很...
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU...
相关热词 c# plc s1200 c#里氏转换原则 c# 主界面 c# do loop c#存为组套 模板 c# 停掉协程 c# rgb 读取图片 c# 图片颜色调整 最快 c#多张图片上传 c#密封类与密封方法
立即提问