的专栏

原创 DBGridEh 滚动条颜色怎么设置？

网上好像没有设置的代码。

原创 dbgrid+clientdataset 能做到输入行整行变色吗？目前是整行变色后就不可以输入

dbgrid+clientdataset 能做到输入行整行变色吗？目前是整行变色后就不可以输入。

原创 VCLZip压缩解压文件（夹）

压缩：interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB, Zlib, VCLUnZip, VCLZip;type TFormUpload_update = class(TF...

原创 C#远程连MYSQL数据库服务器

需要这3个DLLMySql.Data.dllMySQLDriverCS.dllRenci.SshNet.dll-------------------------------------------------------------------using MySql.Data.MySqlClient;using MySQLDriverCS;using Ren

原创 C#如何创建WebService

1 打开VS2010，菜单    文件->新建->项目2 选择【ASP.net 空web应用程序】，将其命名为自己想的工程名称。3 右键点击工程，添加->新建项选择 web服务。然后命名服务名称， 比如myWebSevice 。4 在asmx文件中，继续加入自己的WebService方法，其中也要改变命名空间为容易

原创 C#调用WebService

1：首先得有一个WEBSERVICE：http://192.168.8.102/WebService1.asmx2：现在打开C#程序进行调用把刚才的WEBSERVICE链接复制到这里，点击“添加引用”C#程序里写：//调用WebServiceWebReference.WebSer

原创 asp.net 发布WebService出现的各种问题及解决方法

打开CMD，输入C:\Windows\Microsoft.NET\Framework\v4.0.30319\aspnet_regiis.exe-i 回车0：在计算机“.”上没有找到服务WAS。勾选internet信息服务、microsoft.net framework3.5.1下面的所有选项控制面板—程序和功能—打开或关闭Windows功能 1：由于 Web 服

原创 人脸识别：（抓拍+识别）

原创 【不想活了】DELPHI 运行程序出现System Error. Code: 5. 拒绝访问。

DELPHI  运行程序出现System Error.  Code: 5. 拒绝访问。描述问题：打开程序某个窗口，这个窗口必须有DBGridEh控件（没有这个控件的窗口不会弹出错误），然后锁屏电脑，再输入密码登录电脑，发现弹出 System Error.  Code: 5.拒绝访问。Debugger Exception Notification-----------

原创 Delphi 访问并打开局域网共享文件夹

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ShellAPI;type  TForm1 = class(TForm)    Button1: TBut

原创 C# 访问并打开局域网文件夹

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;usin

原创 DELPHI 弹出ntdll.dll的错误

Access violation at address 77106D4E in module 'ntdll.dll'. Write of address 004051A5.开发的程序，放到其他电脑上，打开其中3个窗口的时候弹出这个提示，打开其他窗口没问题，怎么回事？可能是项目较大，我的这个项目最后达到50多M，我把一些没用的文件删除，变成40多M，再编译，就没问题了。另

原创 纯C#代码生成条码

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using Sy

原创 barcodelib打印条码C#例子

先引用barcodelib控件using System.Threading;using System.Drawing.Printing;private void button1_Click(object sender, EventArgs e)        {            DialogResult result = MessageBox.

原创 Bartender条码使用方法C#

去官网下载10.1版本，http://www.bartender.cc/xiazai.html安装在C盘较好吧C:\ProgramFiles (x86)\Seagull\BarTender Suite再下载破解补丁软件http://www.cc.cc/soft/201508271679.html这个破解补丁是希望安装在C盘的吧，哈哈。破解后红框处不会出现“演示”二字，因为演示版

原创 asp.net英文操作系统下导出EXCEL，不会乱码

' Text="导出Excel" runat="server">                                    -------------------using Microsoft.Office.Interop.Excel;using System.IO;using System.Text;    protected vo

原创 Access violation at address 77106D4E in module 'ntdll.dll'. Write of address 004051A5.

Access violation at address 77106D4E in module 'ntdll.dll'. Write of address 004051A5.开发的程序，放到其他电脑上，打开其中3个窗口的时候弹出这个提示，打开其他窗口没问题，怎么回事？可能是项目较大，我的这个项目最后达到50多M，我把一些没用的文件删除，变成40多M，再编译，就没问题了。另

原创 Delphi 单引号，斜杠，而且字符串很长，是字符串流TStringStream，这样的内容如何保存到SQL SERVER 2000？

ss:=TStringStream.Create('');  ms.SaveToStream(ss);//把ms拷贝到ss  RxRichEdit3.Lines.Add(ss.DataString);  //聊天记录保存到本地数据库  with ADOQuery2 do  begin     SQL.Clear;     strSql:='insert into mes

原创 A客户端发，服务端接收，服务端转发，B客户端必须线程接收。

A客户端发送  ms_send:=TMemoryStream.Create;  RxRichEdit3.Lines.SaveToStream(ms_send);  i:=ms_send.Size;  IdTCPClient2.WriteInteger(i);  IdTCPClient2.WriteStream(ms_send);//发送的是图片和文字服务端接收   

原创 （死亡历程）Delphi7 自带的控件 IdTCPClient，IdTCPServer 客户端发送给服务端，服务端转发给其它客户端

客户端  private    { Private declarations }    FThread: TThread;  public    { Public declarations }    iFileHandle:integer;    i: integer;    host,port,qm:string;    sFile:TFileStre

原创 （死去活来）Delphi IdTCPClient IdTCPServer 点对点传送文件

Delphi     IdTCPClient 点对点传送文件客户端向另一个客户端传送文件，不通过服务端中转那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时候也是服务端，必须相应其它客户端对它的连接，这个时候客户端相当与服务端，好了，明白这个道理就好办了A客户端（放一个IdTCPClient控件，发送

原创 （死亡历险）Delphi7 IdTCPClient1，IdTCPServer1客户端向服务端发送指令进行文件下载

客户端procedure TFormFileDownload.SpeedButton8Click(Sender: TObject);var  rbyte:array[0..4096] of byte;  sFile:TFileStream;  iFileSize:integer;begin  IdTCPClient1.Host:=host.Text;//'192.168

原创 （死亡历险）Delphi7 IdTCPClient1，IdTCPServer1客户端向服务端传送大型文件

服务端unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, ExtCtrls, Buttons,  Std

原创 死亡历险，Java做的安卓调用.net Webservice进行修改密码

public class DefaultActivity extends Activity implements OnClickListener{    private ArrayList resultList = new ArrayList();    private ArrayList arrayList = new ArrayList();     private Array

原创 死亡历险，asp.net做的Webservice，Java做的安卓调用Webservice进行登录验证

1：asp.net做的Webservice1.打开VS2010后，文件-->新建-->项目-->其他项目类型-->Visual?Studio?解决方案-->空白解决方案?就起名为:?Test?2.建立表现层（UI）  对着解决方案右键--添加---新建项目--Visual C#--ASP.NET Web应用程序  随便起个名字Android    确定  （注意不是Visual C#-

原创 彻底删除Delphi中ActiveX面板中的第三方控件

打开Project|Options|Packages选中Borland user component找到Borland user component，点Edit点Yes找到要删除的控件，点Remove，最后点Compile，后面按提示来确定即可彻底删除

原创 死亡历险，Delphi以Json方式一次传递多张图片通过WebService到Java保存

Unit1.pasprocedure TForm1.btn20Click(Sender: TObject);var  addResult:string;  strm : TMemoryStream;  i:Integer;  ms:TMemoryStream;  ss:TStringStream;  s:string;  jfields,

原创 Java Webservice 取数据库图片，图片以数组方式传递到Delphi前台显示

login.javapublic String[] lookImage_Array(Connection conn, String sID) throws SQLException {        String sql = "";        String[] result = new String[3];        String[] lookImage_Array =

原创 相当无聊之Delphi截取字符串123-456-7，得到123,456,7

result1,result2,result3,result0:string;  //addResult:='123-456-7';  //addResult结果类似123-456-7  //先得到 result1  result1:=copy(addResult,0,pos('-',addResult)-1);//123  result0:=copy(addRes

原创 死亡历险，DELPHI以string方式传递图片到JAVA的WEBSERVICE保存

死亡历险，DELPHI以string方式传递图片到JAVA的WEBSERVICE保存procedure TForm1.btn7Click(Sender: TObject);var  addResult:string;  strm : TMemoryStream;  i,j:Integer;  imageStr:string;  ms:TMemoryS

原创 死亡历险，DELPHI以TByteDynArray（Bytes）方式传递图片到JAVA的WEBSERVICE保存

DELPHI以TByteDynArray（Bytes）方式传递图片到JAVA的WEBSERVICE保存procedure TForm1.btn17Click(Sender: TObject);var  strm : TMemoryStream;  AFileData: TByteDynArray;  fsize:Integer;begin    strm :=

原创 死亡历险，翻开新的一篇之Delphi 连接 JAVA WebService，并实现查找，添加，修改，删除等功能

死亡历险，翻开新的一篇之JAVA WebServicedb.javapackage com.hyan.db;import java.util.ResourceBundle;import java.sql.Connection;import java.sql.DriverManager;import java.sql.SQLException;im

原创 Delphi 调用JAVA WebService 操作数据库登录的例子

db.java    连接数据库文件package com.hyan.db;import java.util.ResourceBundle;import java.sql.Connection;import java.sql.DriverManager;import java.sql.SQLException;import java.sql.Statemen

原创 Delphi 调用JAVA WebService例子

先用JAVA写一个WebServiceServiceHello.javapackage com.hyan.service;import java.sql.SQLException;import javax.jws.WebService;import javax.xml.ws.Endpoint;@WebServicepublic class ServiceHe

原创 asp.net 框架页刷新时如何保留之前的页面

asp.net 框架页刷新时如何保留之前的页面假如框架页右边是 right.aspx，打开的页面是newPage.aspx  right.aspx    protected void Page_Load(object sender, EventArgs e)    {        HttpCookie cookie;        if (Request.Cook

原创 遍历UpdatePanel1中的控件

foreach (Control ctl in UpdatePanel1.ContentTemplateContainer.Controls)        {            if (ctl is System.Web.UI.WebControls.Panel)            {                foreach (Control c in ctl.Co

原创 框架里的main.aspx利用showModalDialog打开子页面B，B页面点确定后关闭自己并局部刷新父页面main.aspx的方法

<br /><frameset rows="60,*,20"  cols="*" frameborder="NO" border="0" framespacing="0" id="frame1"><br />        <frame name="top" scrolling="no" noresize src="top.aspx" frameborder="0"><br />        <frameset rows="*"  cols="170,*" frameborder="NO" border=

原创 VS2005+SQL SERVER 2000+AspNetPager1 分页存储

public partial class message_message : System.Web.UI.Page{    SqlConnection sqlcon = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["ConnectionString"].ConnectionString);    SqlCommand sqlcom;    private const string TableNam

转载 刚刚写的功能不错的分页存储过程，可支持多表查询，任意排序。(转)

<br />刚刚写的功能不错的分页存储过程，可支持多表查询，任意排序。<br />http://jiny-z.cnblogs.com/archive/2006/04/12/373146.html<br />注意：该存储过程处理逻辑被发现有严重错误，并不能实现 任意排序等功能。<br /> <br />/**//*<br />说明：1.支持多表查询 2.支持任意排序 3.不支持表别名<br />参考了<br />    evafly920:[分享]千万数量级分页存储过程（效果演示）<br />    地址：h

原创 DELPHI TIdTCPClient，TIdTCPServer，SOCKET通讯小例子

SERVER： unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Sockets, StdCtrls, IdBaseComponent, IdComponent,  IdTCPConnection, IdTCPC