摘要：
一、Delphi与Socket 计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的 电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP 协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保证网络传输的正确性和有效性，必须进行一系列复杂的纠错和排序等处 理。 Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范，最初是由美国加州Berkley大学提出，它定义... 阅读全文
摘要：
SELECT parent_id_list+','+cast(id AS varchar(10)) FROM mytable或者cast也可以用convert来代替同时看到有网友有这样的需求，它想把1转成varchar的”000001″这样的串，但是cast函数是只会转成”1″，所以要借用right函数select right(’00000000′ CAST(@i as varchar), 阅读全文
摘要：
SQL语句大全编辑本段基础创建数据库 创建之前判断该数据库是否存在 if exists (select * from sysdatabases where name='databaseName') drop database databaseName go Create DATABASE database-name删除数据库 drop database dbname备份sql server --- 创建备份数据的 device USE master EXEC sp_addumpdevice 'disk', 'testBack', 'c:\ 阅读全文
摘要：
来源SQL联机丛书检查指定表的当前标识值，如有必要，还对标识值进行更正。语法DBCC CHECKIDENT ( 'table_name' [ , { NORESEED | { RESEED [ , new_reseed_value ] } } ] )如果标识列上有主键或唯一键约束，使用DBCC CHECKIDENT ('table_name', RESEED, new_reseed_value) 当前值设置为new_reseed_value，这个时候需要注意：new_reseed_value 的值应该取当前标识列中的最大值，避免插入错误。示例A. 如有必要，重置 阅读全文
摘要：
作者：Shilf来源：博客园发布时间：2011-09-10 01:16阅读：213 次原文链接 [收藏] Delphi XE (2011) + 7 + PostgreSQL 9.0 ZeosLib Today I installed the newly released Embarcadero RAD Studio XE and I liked what it found.We also intend to write some notes about this release in the coming days. Some time ago I wrote a little s... 阅读全文
摘要：
function WCharToChar(WString: PWideChar): string;var Len, dwMinSize: Integer; lpUsedDefaultChar: BOOL;begin Result := ''; lpUsedDefaultChar := False; len := lstrlenW(WString) * 2 + 1; SetLength(Result, Len); dwMinSize := WideCharToMultiByte(CP_OEMCP, 0, WString, -1, nil, 0, nil, @lpUsedDefau 阅读全文
摘要：
Delphi 的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar //单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小) var c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF} begin {用十进制方式赋值:} c := #65; ShowMessage(c); {A} {用十六进制方式赋值:} c := #$41; ShowMessage(c); {A} {用 Chr 函数... 阅读全文
摘要：
select ident_current('tablename')--标识当前值 /* ---------------------------------------- 3 （所影响的行数为 1 行） */ select ident_incr('tablename')--标识增量 /* ---------------------------------------- 1 （所影响的行数为 1 行） */ select ident_seed('tablename')--标识种子 /* -------------------------------- 阅读全文
摘要：
当 IDENTITY_INSERT 设置为 OFF 时，不能向表 'products' 中的标识列插入显式值。” 示例： 1.首先建立一个有标识列的表： CREATE TABLE products (id int IDENTITY PRIMARY KEY, product varchar(40)) 2.尝试在表中做以下操作： INSERT INTO products (id, product) VALUES(3, 'garden shovel') 结果会导致错误：“当 IDENTITY_INSERT 设置为 OFF 时，不能向表 'products 阅读全文
摘要：
刷新系统托盘(清除死掉的图标)修正版2009-08-06 18:50:06|分类： Delphi |标签： |字号大中小订阅 type TOSVersion = (osUnknown, os95, os98, osME, osNT3, osNT4, os2K, osXP, os2K3); ...... function GetOS: TOSVersion; var OS: TOSVersionInfo; begin ZeroMemory(@OS,SizeOf(OS)); OS.dwOSVersionInfoSize := SizeOf(OS); GetVersionEx(OS); Result 阅读全文