易截截图软件、单文件、免安装、纯绿色、仅160KB
热门标签: c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 最新文章 : delphi

Delphi的Web Services技术开发短信应用程序

一提起基于Web Services技术的应用程序开发,一般人首先想到的开发工具是Vs.net,其实作为快速应用程序开发工具(RAD)的老大,Delphi从6.0就开始支持Web Services的开发和应用了,本文通过使用Delphi 7.0调用新浪发送短信的Web Service进行短信应用程序开发这一实例详细的介绍在Delphi中如何开发基于Web Services的应用系统。
第一步,准备工作,了解新浪短信Web Service。新浪发送短信的Web Service地址是http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl,该Web Service就只有一个方法,即string sendXml(carrier,userid,password,mobilenumber,content,msgtype)。各个参数全部为string类型,其含义基本如下(可能不正确)。
Carrier:运营商名称,好像可以随便输,建议输入“Sina”,如果输入其他的值,消息发送的特别慢;
Userid:您在新浪无线上注册的手机ID,如果您没有在http://sms.sina.com.cn上注册您的手机,你是无法使用本Web Service发送短信的;
Password:您在新浪无线上注册手机时所使用的密码;
Mobilenumber:对方的手机号码;
Content:发送短消息的内容;
Msgtype:发送短消息的类型,我估计支持彩信,不过我不知道怎么使用,似乎 ......

字符串、PChar与字符数组之间的转换(delphi)

设有以下三个变量:
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
那么三者之间的转换如下:
1、字符串到PChar
    p:=PChar(s);
2、PChar到字符串
    s:=p;
3、PChar到字符数组
    StrCopy(@a,p);
4、字符数组到PChar
    PChar(@a);
5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子:
procedure TForm1.btn1Click(Sender: TObject);
var
  str:array[1..10] of char;
begin
  StrCopy(@str,PChar(mmo1.Text));
  mmo2.Text:=PChar(@str);
end;
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/Aricc/archive/2006/11/06/1368984.aspx ......

delphi中Synchronize

delphi中Synchronize这个东东有什么用?我知道是线程同步使用的
是否是一个函数或变量,当一个线程在使用时,如果这个函数使用了Synchronize修钸的话就不允许别一个线程来调用这个函数
1楼:别的线程会等待该操作完成后才能继续
2楼:你说的基本是这个意思。它的目的是避免多个子线程同时访问主线程资源。
示例:
procedure ServerThread.ListItemEnd; //子线程的一个方法
begin
if (ListItem <> nil) then
ListItem.SubItems.Strings[3] := '传送完毕'; //ListItem是主线程的一个TreeView的一行
end;
procedure ServerThread.ClientExecute; //子线程执行
begin
Synchronize(ListItemEnd);
//如果直接写ListItemEnd,可能发生冲突。
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil ......

delphi多线程

Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。
    线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主线程。同时还可以有多个子线程。当一个进程中用到超过一个线程时,就是所谓的“多线程”。
    那么这个所谓的“一段代码”是如何定义的呢?其实就是一个函数或过程(对Delphi而言)。
    如果用Windows API来创建线程的话,是通过一个叫做CreateThread的API函数来实现的,它的定义为:
HANDLE CreateThread(
    LPSECURITY_ATTRIBUTES lpThreadAttributes,
    DWORD dwStackSize,
    LPTHREAD_START_ROUTINE lpStartAddress,
    LPVOID lpParameter,
    DWORD dwCreationFlags,
    LPDWORD lpThreadId
   );
  &nbs ......

Delphi中调用Windows自带的图片和传真浏览器

Delphi中调用Windows自带的图片和传真浏览器查看图片,可以旋转图片也可以调用画图程序编辑图像。自己写不出来好的代码,就用系统自带的好了。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
SysDir,StrParm,StrPicPath,StrRundll:array[0..128] of char;
p1,p2:pchar;
begin
GetSystemDirectory(SysDir,128);
StrRundll:=SysDir;
strcat(StrRundll,'\rundll32.exe');
// showmessage('获取rundll32路径正常');
StrParm:=SysDir;
Strcat(StrParm,'\shimgvw.dll imageview_fullscreen ');
StrPicPath:='D:\My Document\My Pictures\未命名.bmp';
strcat(StrParm,StrPicPath);

// showmessage('获取str ......

Delphi 的运算符列表


分类
运算符
操作
操作数
结果类型
范例
算术运算符
+

整数,实数
整数,实数
X + Y
-

整数,实数
整数,实数
Result - 1
*

整数,实数
整数,实数
P * InterestRate
/
实数除
整数,实数
实数
X / 2
div
整数除
整数
整数
Total div UnitSize
mod
取模
整数
整数
Y mod 6
+(一元)
符号等同
整数,实数
整数,实数
+7
-(一元)
符号相反
整数,实数
整数,实数
-X
布尔运算符
not
否定
布尔型
Boolean
not (C in MySet)
and

布尔型
Boolean
Done and (Total > 0)
or

布尔型
Boolean
A or B
xor
异或
布尔型
Boolean
A xor B
逻辑(按位)运算符
not
按位否定
整数
整数
not X
and
按位与
整数
整数
X and Y
or
按位或
整数
整数
X or Y
xor
按位异或
整数
整数
X xor Y
shl
按位左移
整数
整数
X shl 2
shr
按位右移
整数
整数
Y shr I
字符串运算符
+
连接
字符串、压缩串、字符
字符串
S + '.'
指针运算符
+
指针加
字符指针,整数
字符指针
P + I
-
指针减
字符指针,整数
字符指针,整数
P - Q
^
指针解除参照
指针
指针的基 ......
总记录数:644; 总页数:108; 每页6 条; 首页 上一页[2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页 尾页
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号