如何在工具栏中放置菜单栏？紧急！_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解析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怎么添加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;

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 ADVstringgrid的问题_course

在Delphi7编程时，用了Advstringgrid控件，在StringGrid2GetEditorType事件中，给第3列增加了控件 if ACol = 3 then begin aEditor := edEditBtn; end; 我的想法是：即可以通过按钮调取数据列表，然后选择数据，也可以在输入数据后，系统自动判断输入数据的合合法性，如果合法则通过，不合法则提示不合法，并清空刚才输入数据。 我在StringGrid2SetEditText事件中，写入如下语句，但是不生效，刚才输入的数据还在，我现在就想怎么可以把数据清空。 stringgrid2.cells[3,ARow]:=''; stringgrid2.Refresh; 全部的代码是 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, BaseGrid, AdvGrid; type TForm1 = class(TForm) StringGrid2: TAdvStringGrid; procedure StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); procedure StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); begin if ACol = 3 then begin aEditor := edEditBtn; end; end; procedure TForm1.StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin stringgrid2.cells[3,ARow]:='bbbbb'; stringgrid2.Refresh; end; end.

如何在Delphi打开Excel文档时使用修复功能？_course

问题：在使用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 XE8安装故障，点击安装没反应_course

条件：新装电脑，120G固态硬盘做系统盘，8g，内存已装delphi5，delphi7，sqlserver2008， win7 64位系统，  点击安装  进度条读完然后就提示BDS.EXE已停止工作，然后就没动静了

Delphi设计一个登录界面_course

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

Delphi Soap消息头文件不对，求大神帮忙解决！_course

delphi引入webservice的wsdl后，直接调用其中方法，报错soap消息头文件不对。 同事JAVA的代码： val request = Request.Builder() .url(url) .post(RequestBody.create(MediaType.parse("text/xml;charset=UTF-8"), xmlData)) .header("Content-Type", "text/xml; charset=UTF-8") .addHeader("SOAPAction", “http://webservice.common.yinhai.com/callBusiness”) .build() delphi中怎么操作呢，求大神帮忙看看。

Delphi 调用C++ dll 回调函数_course

用Delphi 调用容联云通信的动态库CCPAppClient.DLL，其中有一个函数 Function CCPinit( CallbackInterface: CCPCALLBACKINTERFACE ):Integer;stdcall; 参数CCPCALLBACKINTERFACE 是一个结构体指针，包含 onConnected , onConnectError 等回调函数。 在调用函数CCPinit调用成功后（返回值0），会触发CCPCALLBACKINTERFACE 结构体中的回调函数onConnected 这部分代码用Delphi如何写？麻烦高手给看一下 下面是C#的demo CCPCall.instance.loginInterface = this; string ret = CCPCall.instance.LoginCCP(); if (ret != null) { MessageBox.Show(ret, "登录失败", MessageBoxButtons.OKCancel, MessageBoxIcon.Error); } else { login_btn.Enabled = false; login_btn.BackgroundImage = Resources.bluebutton_disable; login_btn.ForeColor = Color.White; login_btn.Text = "登录中...请稍后"; } public delegate void LoginDelegate(); #region ILoginInterface 成员 public void onConnected() { LoginDelegate connected = delegate() { IMDBAccess.CreateIMMessageTable(); IMDBAccess.CreateGroupNoticeTabel(); this.Hide(); new MainForm().Show(); }; this.BeginInvoke(connected); } public void onConnectError(CloopenReason reason) { LoginDelegate error = delegate() { login_btn.Enabled = true; login_btn.BackgroundImage = Resources.bluebutton_normal; login_btn.Text = "登录"; }; login_btn.BeginInvoke(error); } #endregion ```

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

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

delphi 的winhttp怎么异步回调获取网站状态码？_course

我本地有一个txt的记事本里面有几十万个网站 我需要用异步获取网站返回的状态码 http.Status 网站状态码。 下面是我写的异步true 异步 那么delphi怎么回调 获取网站状态码。请具体代码顺便 备注说明 谢谢。 while do true begin Http:=CreateOLEObject('WinHttp.WinHttpRequest.5.1'); http.setTimeouts(10000,10000,10000,10000); Http.Open('head',trim(abc),true); Http.setRequestHeader('Content-Type','text/html'); Http.setRequestHeader('Accept-Language','zh-cn'); Http.setRequestHeader('Connection','Keep-Alive'); Http.setRequestHeader('Accept','*/*'); Http.setRequestHeader('User-Agent','Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))'); http.Option[4] := (13056); Http.Option[6] := (true); Http.Send(); end;

Delphi怎样将字体（如abc.ttf）嵌入资源中并标签label1的字体为abc？_course

请Delphi高手回答，谢谢！ 程序要用到一种特殊字体（如abc.ttf），想将字体嵌入资源中， 运行程序时可以加载到这种特殊的字体ABC.ttf，让label1.font.name:='abc' 我知道怎么做声音wav 的源文件 资源标识符 + 关键字 + 资源文件名 ① 资源标识符：程序中调用资源时的特殊标号； ② 关键字：标识资源文件类型； Wave： 资源文件是声音文件； RCDATA： JPEG文件； AVI： AVI动画； ICON： 图标文件； BITMAP： 位图文件； CURSOR： 光标文件； 资源文件名：资源文件名； **两个问题： ** **一、**有哪位Delphi大侠知道字体的关键字是什么？ **二、**如课字体嵌入了资源中，又怎样使程序中的label1的字体显示为我想要的特殊字体abc.ttf,即让label1.font.name:='abc' 麻烦使用Delphi回答，谢谢！

delphi程序如何控制php CLI脚本？_course

<div class="post-text" itemprop="text"> <p>I have a php script that I need to be controlled by DELPHI (I need a windows GUI that's why I want delphi).</p> <p>I can run php script with winexec or exec</p> <p>1) how can I make the php script not being opened in a command line window ?</p> <p>2) How Can I communicate with delphi ? ex: php script tells delphi that something has been captured</p> <p>Regards</p> </div>

delphi用TChart绘制lines的问题，跪求各位大神帮助_course

我用delphi自带的TChart控件做图表，Chart1->Series[0]->AddXY(X,Y,"",clRed);Series为line型，画图时，发现自动排序了，并不是按照我添加数据的先后顺序画图，如何避免自动排序？series[0].xvalues.order.lonone默认的还是按照x轴的大小从小到大绘图，我该如何实现按照我添加点的顺序绘图呢？跪求各位大神帮助

你用Delphi for PHP做什么？_course

<div class="post-text" itemprop="text"> <p>Well, I just got Delphi for PHP because we code our app in Delphi and I'm the web guy. Go figure, it looks pretty cool and super easy, but I can't imagine making an entire website with absolute positioned labels, that would be kind of obscene, cross-browser compliant, but obscene. </p> <p>Can anyone suggest good resources/usergroups/tutorials/examples/blogs/wiki's for using Delphi for PHP</p> <p>I'm not new to PHP or Delphi, but I do want to justify getting this software because it seems pretty cool. </p> </div>

如何使用 Delphi RestClient 读取流数据？_course

OANDA网站提供的REST API可以读取账户信息（"https://api-fxtrade.oanda.com/v1/accounts），以及提供流报价（streaming，比如"https://stream-fxtrade.oanda.com/v1/prices?accountId=12345&instruments=AUD_CAD%2CAUD_CHF" ）。 目前在XE7版本，使用Delphi提供的RestClient组件可以实现读取账户信息。但是，对于服务端的流数据，由于其传输方式是 chunked transfer encoding，按照账户数据读取方式则会在停在最后Excute无法获得返回的Json字符串。 代码如下： ``` function GetStreamingPrices:TQJson var .... begin Result := TQJson.Create; // Get _RESTRequest.Method := rmGET; //指定资源位置：'/prices' _RESTRequest.Resource := TRequestSourceURITemplate.Prices; //生成query串：accountId=12345&instruments=AUD_CAD%2CAUD_CHF _RESTRequest.AddParameter(TQueryPairKey.AccountID,accountlist[0],pkGETorPOST); _RESTRequest.AddParameter(TQueryPairKey.Instruments,'EUR_USD',pkGETorPOST); //URL ._RestClient.BaseURL := 'https://stream-fxtrade.oanda.com/v1'; //执行 _RestRequest.Execute; //解析为Json Result.tryParse(_RESTResponse); end; ``` so，请教，如何使用Delphi XE7 的RestClient 获取 chunked transfer encoding 的流数据？请不吝赐教。 ----------------- 多谢一楼 @caozhy 提供的信息，不过没有没有解决此问题。我再描述一下： 1、上面的代码用于正常的request-response过程，是没有问题的。 2、 问题出在，报价流的获取上。报价服务器在工作时段实际是持续传输，一直没有结束，采取chunked transfer encoding模式持续地向外传输当时的即时价格信息。使用上面代码，就会处在一直等待状态下。 因此，需要达到的目标就是：一，不能等到结束标志才去解析收到的字符串。二，即便间歇获取数据，如果中间的缓冲时间过长，也不能忍受。

java与delphi之间的文件传输问题_course

使用socket进行通信 delphi作为客户端中使用的是文件流TfileStream传送文件 java作为服务端用的InputStreamReader获取 悲催的问题来了 服务端获取不到文件中的末尾也就是说不知道文件传输是否结束 文件传完了也一直连着 后来使用一个比较笨的办法解决 用新建了一个缓存区buf去取数据一次只取一部分 当buf取到的值不满时就判断文件传输完成… 所以悲催的新问题又来了 文件还只是传一部分就结束了 所以想请问一下各位大牛们如何解决这个文件传输的问题？ 亦或者有什么其它的传输方式？

DELPHI7 在win10下调试BPL包时无法实际跟踪_course

DELPHI7 在win10下调试BPL包时无法实际跟踪 DELPHI7 在win10下调试主程序（.dpr）的没有问题，但是调试BPL包的源代码时，针对于源代码做修改后，再按F9运行跟踪时，断点能进去，但是无法跟踪修改的代码，他还是在执行修改前的，同时把光标放到变量上无法显示值。 修改代码后，要关掉DELPHI，再重新打开编译跟踪就可以了。 如下图：空行处本来代码，现在把代码移动一下，编译跟踪时，他还是在执行原来的代码行的位置，实际已经是空行。 

在delphi xe7中控件TClientSocket、 TServerSocket支持安卓系统吗？_course

在delphi xe7中控件TClientSocket、 TServerSocket支持安卓系统吗？ 我有个程序是在delphi 7中写的使用了TClientSocket、 TServerSocket控件，现在想在delphi xe7中写手机客户端，和服务器通信还是想用TClientSocket控件，就是不知道支持安卓系统不，我在delphi xe7只建vcl工程就有这2个控件，但是换成支持手机的就没有这2个控件了，但是控件上提示又支持安卓系统的，我就搞不懂了，望赐教！谢谢