- 博客(22)
- 资源 (10)
- 收藏
- 关注
转载 读txt文件内容
if (File.Exists(System.Web.HttpContext.Current.Server.MapPath(strfile))) StreamReader sr = new StreamReader(System.Web.HttpContext.Current.Server.MapPath(strfile), System.Text.Encoding.Default); String inpu
2011-05-12 15:01:00 583
原创 opengl 投影 glOrtho gluPerspective gluLookAt
glOrtho gluPerspective gluLookAt
2011-02-25 18:55:00 3033
原创 glTranslatef(0.0f,-20.0f,-40.0f)表示将当前图形向x轴平移0,向y轴平移-20,向z轴平移-40 glScaled(10.0f,10.0f,10.0f)表示将当前图形沿x,y,z轴分别放大为原来的10倍 glRotatef(-
glTranslatef(0.0f,-20.0f,-40.0f)表示将当前图形向x轴平移0,向y轴平移-20,向z轴平移-40<br />glScaled(10.0f,10.0f,10.0f)表示将当前图形沿x,y,z轴分别放大为原来的10倍<br />glRotatef(-80.0f,10.0f,1.0f,0.0f)表示将当前图形沿方向向量(-10,1,0)顺时针旋转80度。<br /><br />www.opengl.org
2011-02-22 19:26:00 3979
原创 delphi DatatoExcel
procedure DataToExcel(eQUery: TADOQuery ;eGrid : TDBGrideh; cfromname:string);var ExcelApp: Variant; //Excel对象 i,j : integer;begin ExcelApp := CreateOleObject(Excel.Application ); //创建Exce
2009-07-02 09:28:00 1214
原创 Delphi webBrowser焦点
var oldcur:tcursor;begin oldcur := Screen.Cursor; screen.cursor :=crHourGlass; OpenEnglishItinerary(); Self.FocusControl(WebBrowser1); screen.Cursor:=oldcur;
2009-05-14 14:58:00 1415 1
原创 Html精确定位,ScrollHeight等介绍,以及一个例子实现在某个控件处打开一个DIV
HTML:scrollLeft,scrollWidth,clientWidth,offsetWidth到底指的哪到哪的距离之完全详解scrollHeight: 获取对象的滚动高度。 scrollLeft:设置或获取位于对象左边界和窗口中目前可见内容的最左端之间的距离scrollTop:设置或获取位于对象最顶端和窗口中可见内容的最顶端之间的距离scrollWidth:获取对象的滚动宽度offsetH
2009-03-26 15:21:00 2527
原创 弹出对话窗体
string OrderID = e.Row.Cells[1].Text; string _jsEdit = "showModalDialog(GridviewEditUpdateDelete.aspx?id=" + OrderID + ",null,dialogWidth=650px;dialogHeight=500px;help:no;status:no)";
2009-03-24 12:06:00 593
原创 Delphi 系统服务
安装服务程序 function TForm1.InstallService: Boolean;var schSCManager,schService:THANDLE; strDir:array[0..1023]of char; lpszBinaryPathName:PChar; args: pchar;begin schSCManager:=OpenSCManager(nil,nil
2009-01-19 10:35:00 1110
原创 asp中sql语句
1.执行存储过程 (1)存储过程中应该使用set nocount on (2) rs.close set rs=nothing set rs=CreateObject("ADODB.DataSet") set objCmd1=nothing set objCmd1=CreateObject("ADODB.Command") Set obj
2008-12-25 15:15:00 641
转载 DELPHI编译的DLL喜欢内存泄漏
用Delphi的过程中难免会遇到很多奇怪的问题,而Delphi的文档也出奇的少,因此只能自己慢慢的总结,所以有了下文(由于只是零散的细节,所以文笔上没有花什么功夫,可能会比较乱,但应该能够理解;-))。如果:1. 你有下面问题的更好解决方法,请告诉我,和csdn上的朋友2. 你有其他的问题,请列出问题,以及你的解答,告诉我,和csdn上的朋友。 沟通创造一切!正文: Q: 在Delphi的DLL中
2008-10-29 08:58:00 1637
原创 asp包含其他页面
1.2.http://202.103.68.57/Hotel_Order_Report/service_hotel_vote.asp?sid=1&ttype=1">>
2008-10-28 19:00:00 761
原创 delphi内存映射与映射数据获取
1.定义数据结构type//外部接口结构 PBM_Interface = ^TBM_Interface; TBM_Interface = record UserID:Integer; //登陆用户ID UserName: string; //登陆用户姓名 end;===========================
2008-10-13 15:15:00 4675
原创 delphi获取子字符串
1.{作用:截取字符串中的某一些字符 strSource:源字符串 strBegin: 开始位置字符串 strEnd: 结束位置字符串例:GetStr(abcd1234,bc,34)返回值:d12}function GetStr(StrSource, StrBegin, StrEnd: string): string;var in_star,in_end:integer;beg
2008-10-10 09:27:00 6104 2
原创 delphi 取asp数据
1.取页面内容var dd:IHTMLDocument2; oo:IHTMLElement; idhttp: TIdHttp;begin dd := wb1.Document as IHTMLDocument2; oo := dd.body as IHTMLElement; //不包括head部分,有可能出现乱码问题 idhttp :=
2008-10-09 16:28:00 638
转载 WinAPI: ShellExecute - 打开外部程序或文件
WinAPI: ShellExecute - 打开外部程序或文件 ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开
2008-10-08 11:32:00 652
原创 delphi字符串替换
{ 功能:字符串替换 参数: s: 源字符串 source: 需要被替换的字符串 target: 需要替换成的字符串 返回值: 替换后的字符串 例: nowstr := replacing(, nowstr= }function TfrmWebReport.replacing(S, source, target: string): str
2008-10-06 10:32:00 2716 1
原创 delphi outlook发送邮件
1.定义//mail信息结构type TMailInfo = record strUID, strPWD, strHost:string; //SMTP用户ID , SMTP用户密码 , SMTP主机 iPort:Integer; //SMTP端口 strSubject:string; //邮件主题 slBody:TStringList; //邮件内容 strFr
2008-09-26 11:05:00 1614
原创 delphi dll及函数指针的使用
1.怎么样调用dll函数procedure TBMFather.DOReport(sReportType:TBMReport; sOID:string = );type TPuFun = function (TempLateURL: pchar;CusCallBack: pointer): integer; stdcall; //声明回调函数var f:TfrmWebReport;
2008-09-25 18:24:00 3651
原创 delphi split函数(积累)
function SplitString(const Source,ch:String):TStringList;varTemp:String;I:Integer;chLength:Integer;beginResult:=TStringList.Create;//如果是空自符串则返回空列表if Source= then Exit;Temp:=Source;I:=Pos(ch,Source);
2008-09-22 09:10:00 943
原创 Delphi操作word的基本用法
刚把delphi捡起来,第一个要做的竟然操作word,总结一下。一. 定义word应用程序,文档对象,比如:wordApp: OleVariant; wordDoc: OleVariant;二. 打开word文档 wordApp := CreateOleObject(Word.Application); wordDoc := WordApp.Documents.Open(FileN
2008-09-19 12:56:00 14490
原创 微软的网页在firefox上面字体变化
微软真不受人欢迎,微软的几个网站,包手帮助文件在firefox浏览器上面显示有问题,字体会改变。而回到ie上面却显示正常.
2008-04-02 14:36:00 536
2009软考大纲(程序员,软件设计师,网络工程师,系统分析师等)
2009-07-08
delphi 调用 oracle
2009-04-19
Delphi控制Excel自动生成报表
2008-01-08
COM+实战(转载)
2007-11-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人