Delphi 获取电脑多少个硬盘，每个硬盘多少个分区_course

代码的主要作用是获取当前哪个硬盘 每个硬盘对应的分区 并获取分区ID 如：  我这里有段WMI的代码 但我的电脑获取失败，有个F盘是我存放一般文件的 获取失败了！ http://bbs.csdn.net/topics/391026306?page=1#post-399163774

delphi 7和delphi xe，你选哪一个？_course

过去开发项目一直用delphi 7，为了避免版权问题，现在想买套正版软件，纠结于买delphi 7还是delphi xe，大家来说说它们的优缺点吧

Delphi7 中如何实现 TStringBuilder_course

Delphi7 中如何实现 TStringBuilder Delphi7 中如何实现 TStringBuilder

delphi 如何将pdf转为bmp_course

delphi 如何将pdf转为bmp delphi 如何将pdf转为bmp

delphi有关txsdatetime问题_course

在delphi中我如何把YYYY-MM-DD字符串，付给类型为txsdatetime的变量

Delphi中 怎么将bytes 转换位steam_course

Delphi中 怎么将bytes 转换位steam 或者将bytes中的一部分数据转成integer，word 对Delphi不太了解 请大神教教我

Delphi怎么添加access记录_course

本人Delphi新手，用Delphi7+access03做一个信息管理系统，对于“增加记录”按钮我是这样写的（如下），但是不知道是怎么错了，求Delphi高手指点，万分感激！！ procedure TFChuang.Button1Click(Sender: TObject); begin if self.Edit1.Text='' then begin try with self.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('insert into Patient(PID,PName,PSex,PAge,PMarrige,PNative,PJob,PWorkunit) values(:PID,:PName,:PSex,:PAge,:PMarrige,:PNative,:PJob,:PWorkunit)'); Parameters.ParamByName('PID').Value := self.Edit1.Text; Parameters.ParamByName('PName').Value := self.Edit2.Text; Parameters.ParamByName('PSex').Value := self.ComboBox1.Text; Parameters.ParamByName('PAge').Value := self.Edit3.Text; Parameters.ParamByName('PMarrige').Value := self.ComboBox2.Text; Parameters.ParamByName('PNative').Value := self.Edit4.Text; Parameters.ParamByName('PJob').Value := self.Edit5.Text; Parameters.ParamByName('PWorkunit').Value := self.Edit6.Text; ExecSQL; //（系统报错时标的是这行） end; except messageBox(self.Handle,'数据保存错误！','提示',mb_OK+MB_ICONHAND); edit1.Text:=''; edit2.Text:=''; self.ComboBox1.Text:=''; edit1.SetFocus; Abort; end; messageBox(self.Handle,'新病人个人基本信息创建成功。','提示',mb_OK+MB_ICONINFORMATION); self.Close; end; end;

sip delphi demo 只要delphi 的_course

哪位大侠有sip的代码？ 要Delphi的，俺知识面不广，只会Delphi

delphi解析xml格式问题_course

``` <Responses> <Parameters table="数据表名称（参考附表 a）"> <Parameter name='@字段名'>值</Parameter> <Parameter name='@字段名'>值</Parameter> ... <!--具体字段说明参考省基卫项目技术文档--> </Parameters> <Parameters table="数据表名称（参考附表 a）"> <Parameter name='@字段名'>值</Parameter> <Parameter name='@字段名'>值</Parameter> ... </Parameters> ... </Responses> ``` 这种格式的xml delphi 如何进行解析，一脸懵逼

Delphi 实现类似QQ聊天窗口_course

Delphi如何实现类似QQ的聊天窗口，需要聊天气泡和图文并茂的窗口

Delphi XE 10 如何引用dll_course

Delphi XE 10 中需要添加dll的引用。 在vb.net 中添加引用成功后可以在控件列表中加载dll中所带的控件，如图   Delphi XE 10 中应该如何实现

Delphi 动态创建GridPanel_course

Delphi 如何动态创建GridPanel procedure TForm12.FormCreate(Sender: TObject); var grdpnl: TGridPanel; lbl: TLabel; img: TImage; begin grdpnl := TGridPanel.Create(self); grdpnl.Parent := pnl1; grdpnl.Align := alTop; grdpnl.Height := 38; grdpnl.Caption := 'grdpnl1'; // grdpnl.BevelOuter := bvNone; grdpnl.ColumnCollection.Add.SizeStyle := ssAbsolute; grdpnl.ColumnCollection.Add.Value := 10; grdpnl.ColumnCollection.Add.SizeStyle := ssAbsolute; grdpnl.ColumnCollection.Add.Value := 50; grdpnl.ColumnCollection.Add.SizeStyle := ssAbsolute; grdpnl.ColumnCollection.Add.Value := 10; grdpnl.ColumnCollection.Add.SizeStyle := ssPercent; grdpnl.ColumnCollection.Add.Value := 100; grdpnl.ColumnCollection.Add.SizeStyle := ssAbsolute; grdpnl.ColumnCollection.Add.Value := 40; grdpnl.RowCollection.Add.SizeStyle := ssPercent; grdpnl.RowCollection.Add.Value := 50; grdpnl.RowCollection.Add.SizeStyle := ssAbsolute; grdpnl.RowCollection.Add.Value := 17; grdpnl.RowCollection.Add.SizeStyle := ssPercent; grdpnl.RowCollection.Add.Value := 50; //创建lbl lbl := TLabel.Create(grdpnl); lbl.Parent := grdpnl; lbl.Left := 10; lbl.Top := 10; lbl.Width := 50; lbl.Height := 17; lbl.Align := alClient; lbl.Caption := '张自力'; lbl.Font.Name := '微软雅黑'; lbl.Font.Color := $00333333; lbl.Font.Charset := GB2312_CHARSET; lbl.Font.Size := 9; lbl.Layout := tlCenter; 这样写不起作用啊，还有Label应该如何分配Colum和Row

delphi 桌面透明小窗口_course

delphi程序，像桌面小工具一样， 不会被显示桌面隐藏， 只在桌面显示，其他地方不显示。 并且要求窗体是透明的。。

C#调用Delphi dll文件问题_course

最近手头一个项目，需要用到C#调用Delphi写出的dll文件（调用的是modelDLL.dll，但是该dll文件还需要另外一个borlndmm.dll文件支持，调用的时候已经把这两个dll文件放到debug目录下了），直接附上相关代码： Delphi相关源码： ``` type TCharStr=array[0..599] of char; ``` 用Delphi写的直接调用可运行，代码如下： ``` procedure TMainDLLForm.PedBitBtnClick(Sender: TObject); var fileName:TCharStr; begin OpenDataFileDlg.InitialDir:= GetCurrentDir; OpenDataFileDlg.Title:='加载模型文件'; OpenDataFileDlg.Filter := '定量模型[*.mdl]|*.mdl|定性模型[*.mdr]|*.mdr'; if OpenDataFileDlg.Execute then begin StrPCopy(FileName,OpenDataFileDlg.FileName); tmpD:=NIRSAModelForPred(graphyData,dataLength,FileName,targetName); end; if compareText(fileExt,'.MDR')=0 then begin memo1.Lines.Add('定性模型: '+ExtractFileName(FileName)); memo1.Lines.Add(Format('预测结果: %10s：%0.0f',[targetName,tmpD])); end; memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAPretreatInfor(FileName)));//调用该函数 memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAModelInfor(FileName))); end; ``` 而我现在用C#调用出现"尝试读取或写入受保护的内存。这通常指示其他内存已损坏"的错误，代码如下所示： ``` [MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public string fileName; [DllImport(@"modelDLL.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] [return: MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public static extern string NIRSAPretreatInfor(ref string fileName); private void preCalcButton_Click(object sender, EventArgs e) { OpenFileDialog dialog = new OpenFileDialog(); dialog.Multiselect = false; if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK) { fileName = dialog.FileName; string result = NIRSAPretreatInfor(ref fileName); modelInfoTextBox.Text = result; } } ``` 该段代码主要参考Stack Overflow的一些解决方案，地址：[链接](https://stackoverflow.com/questions/5105460/delphi-dll-in-c-sharp-var-array-as-parameter "")，现在解决不了，没有C币了，请大神支支招，谢谢！

Delphi设计一个登录界面_course

Delphi中form1是：用户名和密码，用户名输入"test1","test2","test3","test4","test5", 密码都是"123456"，都正确，则进入form2，若用户名错误，弹出消息框"用户名不存在" ，若密码错误，则弹出消息框"密码输入错误"。如何用数组编写form1的代码？ var name:array[1..5] of string;

delphi FoxitReader_SDK 使用_course

delphi 如何利用 FoxitReader_SDK 将pdf转换为bmp delphi 如何利用 FoxitReader_SDK 将pdf转换为bmp

delphi tcp/ip协议 收发数据包_course

delphi 通过tcp/ip协议 向服务端发送数据包，并从服务端接收数据包，MQ集群消息

delphi 获取webbrowser网页里的字符串?_course

我用了webbrowser控件， 窗体显示打开一个网页，网页上有个按钮，单击按钮出现一个‘delphi’的字符串，请问怎么获的这个‘delphi’字符串呢？

请教delphi做上位机的问题_course

现在需要用delphi做一个上位机，接收从串口助手上根据动态路由表发送的数据，并将数据展示成动态拓扑图的结构，是基于ad hoc网络的