热门标签： 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 示例

淘宝开放平台的开发例子大多都是c#，php，java等，缺少Pascal的例子。
现用delphi写了一个示例，
关键点是签名的生成，签名需按key字母顺序排序，并去掉等于号后首尾相连。
关键代码：
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/container?authcode='+memo1.Text,memstr);
setlength(ss,memstr.Size);
memstr.Position:= 0;
memstr.Read(ss[1],memstr.Size);
   ss:= Utf8ToAnsi(ss);
//切分session top_session=282730527fc47c5e27838f5dd8aeb098afefd&top_sign=LiTSTYs/DQHpRAGA4OPEZA==
ss:= copy(ss,pos('top_session=',ss)+12,255);
ss:= copy(ss,1,pos('&',ss)-1);
memo1.Lines.Add(ss);
//制作签名，下列代码有冗余的单引号，主要是为了显示逻辑关系。
ss2:=secrect_key+'app_key'+app_Key +
       'fields'+'tid,seller_nick,buyer_nick,status,orders.title,orders.price,orders.num'+
        'format ......

Delphi文件操作常用函数

====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]);
//只读，文件必须存在，文件指针置于开头
//第二参数指定指针移动的大小，对于无类型文件有效
//对于类型文件，则按具体类型的大小，而文本文件默认128字节
Rewrite(var F :File [; Recsize :Word]);
//覆盖只写，若文件已存在，则删之重建空文件写
3）读写文件：
Eof(var F):Boolean; //End of File? 文件指针是否处于文件结尾
Eoln[(var F :Text)]:Boolean; //End of line?
Seek(var F; N :Longint); //对于文本文件无效
//移动文件指针N个单位，N为正则向前移，N为负则向后移
SeekEof[(var F :Text)]:Boolean;
//同Eof，区别在于本函数忽略空白符

SeekEoln[(var F :Text)]:Boolean;
//同Eoln，区别在于本函数忽 ......

Delphi主从表例子

在sql server 的northwide 中建立主表
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
首先,要注意以下设置
1.要注意报从表qrydetail设置,批保存开式. 即.locktype= batchoptimistic ,cursortype=keyset,cursorlocation
=cluseclient
2.
procedure TForm1.FormCreate(Sender: TObject);
begin
qrymain.Close;
qrydetail.Close;
qrymain.SQL.Add(' select * from sell_h') ;
qrydetail.SQL.add('select * from sell_b where sell_id = :sell_id') ;
qrymain.Open;
qrydetail.Open;
end;
3.
procedure TForm1.qrymainAfterScroll(DataSet: TDataSet);
begin
qrydetail.Close;
qrydetail.Parameters.ParamByName('sell_ID').Value := qrymain.fieldbyname('sell_id').value;
qrydetail.Open;
end;
以上就是主要的设置,还有注意主从表的保存问题:
主表不要用批处理，直接保存,把ltBatchOptimistic去掉
明细表用批处理。
保存时先保存明细表，再保存� ......

delphi三层架构

三层架构指的是界面，业务逻辑和数据存储分离,不是指物理上是否分离。
这样做的好处是层次分明，维护好做，系统资源也好分布式处理。
数据库层哪就不说了，用MSSQL、Orcale随你了，就是数据服务层
业务逻辑的话要分析清楚，就是中间层
界面，也叫客户端。这里就是得到数据和显示数据的部分了，不做其它处理。但是数据有效性分析最好放在界面层，以充分利用客户端的性能。不然的话业务逻辑层的负担太大也会形成瓶劲。
数据库的建立不说了。
三层体系的建立
一数据库层的建立
      使用sqlserver或orale建立数据库。
二中间层的建立
      一般将中间层分为二个部分，数据部分和逻辑部分。
     数据部分就是使用原始的查询,一个ado连接，多个成对出现的adq和dsp。ado连接最后选使用文件连接，以便以后可以在客户端自由决定连接哪个数据库而不需要改程序。
逻辑部分跟客户端一样，使用DCom来连接到数据部分，然后使用cds连接到DCOM并指明数据提供器dsp.然后再增加相应的函数来处理数据。事务一般取自动维护的，这样函数开始事务自动开始，我们只需要维护事务回滚setAbout,和事务完成setc ......

在Delphi和VC中创建和调用动态链接库

大家在软件开发时经常会遇到这样的情况，在不同的开发环境中为实现一些功能相同的过程，由于开发所使用的设计语言不同，因而不得不编写许多类似的代码，甚至有时要在同一个开发环境不同项目中重写代码，这就造成了很大的资源浪费。动态链接库能较好的解决这个问题，重复利用代码将大大提高了开发效率。一般，用户在应用程序中基于如下要求创建和使用DLL：
　　1. 在不同的可执行文件之间共享的程序；
　　2. 在设计应用程序时，将其拆分成各个相互独立功能部件，为以后这些功能部件各自升级提供方便的途径。
　　动态链接库将共享程序或功能部件做成库中的函数，形成DLL文件，其它应用程序通过使用DLL调用这些函数。在这里将对Delphi和VC中创建和使用动态链接库的方法做一介绍。Delphi和VC定义的动态链接库均可在两者的开发环境中使用。
　　一、用Delphi创建DLL
　　Delphi的DLL创建并不复杂，下面向大家介绍Delphi的DLL创建方法。
　　（1）首先创建一个新的DLL项目(NewProject)project1，文件头部为：
library Project1;
　　（2）USES语句后面加入ExPorts语句，指明调用DLL的函数名，形式为：
exports
checkpwd name 'checkpwd';
　　（3）在DLL的Pas文件中T ......

javascript中调用delphi函数

以下是test.htm页的内容
首先定义一个插件对象

<object id="Mapupload" name="Mapupload" width="0" height="0" classid="clsid:045FA9B9-B373-4D4C-AE76-128A19A4B6AE">
</object>
<script type="text/javascript">
//此函数打开activexform窗体并为activeform的属性赋值
function loadUploader(){
if(window.ActiveXObject){
  try{
  document.getElementById("Mapupload").picname='20060531';  //为对象赋值
  document.getElementById("Mapupload").open();   //调用对象的open方法
  }
  catch(e){
  }
}
else{
}
}
</script>
<TEXTAREA style="WIDTH: 400px; HEIGHT: 226px" name="" id='Content' rows=20 cols=40></TEXTAREA>
<button name="start" type="button" onclick="loadUploader();"></button>

<script Languag ......

javascript中调用delphi函数

总记录数:644; 总页数:108; 每页6 条; 首页上一页 [3] [4] [5] [6] 7 [8] [9] [10] [11] [12] 下一页尾页