小编Sha*_*ane的帖子

我有一个无法连接到Oracle Database 11g Express Edition的应用程序.我在这个版本中创建了一个测试数据库,我可以使用Oracle SQL Developer连接到数据库,创建表,视图等.但是,我很难通过我的应用程序连接.连接信息在哪里？在什么档案？我想将我的连接信息与SQL Explorer文件中设置的内容进行比较.我找到了所有*.ora文件并重命名它们,看看我是否能找到存储连接的文件(通过消除过程),但我没有成功.任何帮助,将不胜感激.

我试图使用TidHttp组件从Web检索大量图像.

问题是缺少许多图像(例如:7403,7412等)

我如何仅测试那些存在并将其保存到文件？

procedure TForm.Button1Click(Sender: TObject);
var
  MS : TMemoryStream;
  JPEGImage: TJPEGImage;
  Url, numString: String;
  I, Code: Integer;
begin
 for I := 7400 to 7500 do
 begin
 { 
   Url        :='http://www.mywebpage.com/images/DSC' + numString+  '.jpg';
   try
   idhttp1.Head(URL);
   code := idhttp1.ResponseCode;
   except on E: EIdHTTPProtocolException do
    code := idhttp1.ResponseCode;
   end;//try except
   if code = 200 then
   begin

   MS := TMemoryStream.Create;
   JPEGImage  := TJPEGImage.Create;
   try
     try
     idhttp1.Get(Url, MS); //Send the request and get the image
     code := idhttp1.ResponseCode;
     MS.Seek(0,soFromBeginning);
     JPEGImage.LoadFromStream(MS);//load the image in a …

Delphi 2010和Oracle数据库

我需要在两个表中编写一个select语句

账户和主人

从Accounts表中,我需要选择 Account_Id, Account_Number, Bank_Id, and External_Code

从Master表中,我需要选择Account_String.

Master的Account_String字段与Account的Extenal_Code字段匹配

感谢名单

上个月,我们遇到佣金支付问题.美元金额超过了整数可以容纳的实际值.这是自应用程序编写以来第一次发生这种情况.

clist           : tstringlist; 

clist.objects[dex]:= tobject( round((10000*DM.QryComm1.fieldbyname('COSS_NET_CHECK_AMT').asfloat)) + integer(clist.objects[dex]));

美元金额为215,980.72美元,我们乘以10000并获得2159807200的答案.整数的最大值为2147483647.

所以我们将整数增加到int64.

clist.objects[dex]:= tobject( round((10000*DM.QryComm1.fieldbyname('COSS_NET_CHECK_AMT').asfloat)) + int64(clist.objects[dex]))

我们遇到的问题是如果我们使用int64时出现负整数,则在tstringlsit中放置默认值4294428496,而不是实际值.这只发生在负片上.正数很好.

我们一直在研究网络,无法找到解决方案.

这是原始代码.....

while not DM.QryComm1.eof do 
begin 
 . 
 . 
 {Sum net amount for each BVCICI_ID} 
 dex:=clist.indexof(BVCICI_ID); 
 if dex<> -1 then 
  clist.objects[dex]:= tobject( round((10000*DM.QryComm1.fieldbyname('COSS_NET_CHECK_AMT').asfloat)) +   
                       integer(clist.objects[dex])) 
 else 
  clist.addobject(BVCICI_ID, tobject( round(DM.QryComm1.fieldbyname('COSS_NET_CHECK_AMT').asfloat*10000)));

我正在尝试为Interbase编写一个SQL语句.

这个SQL怎么了？

md_master(trm)=主表cd_Med(cdt)=详细信息表

SELECT trm.seq_no, trm.recipient_id, trm.payee_fullname, trm.payee_address1, trm.payee_address2, trm.payee_address3, trm.payee_address_city, trm.payee_address_state, trm.recip_zip, trm.recip_zip_4, trm.recip_zip_4_2, trm.check_no, trm.check_date, trm.check_amount,
cdt.com_ss_source_sys, cdt.cd_pay_date, cdt.com_set_amount,
bnk.name, bnk.address, bnk.transit_routing,
act.acct_no
FROM md_master trm, cd_med cdt, accounts act, banks bnk
join cd_med on cdt.master_id = trm.id
join accounts on act.acct_id = trm.account_tag
join banks on bnk.bank_id = act.bank_id
ORDER BY cdt.master_id

我没有收到错误,计算机只是不停地嘎吱嘎吱地挂起来.

我正在使用EC软件帮助套件(EHS)和Delphi 2010,我试图使用HelpROuter组件显示HTML帮助文件(*.chm)

procedure TfrmMain.Button3Click(Sender: TObject);
begin
 //load CHM file here
 HelpRouter1.Helpfile:= ExtractFilePath(Application.ExeName) + 'VPUCDS.chm';
 HelpRouter1.HelpContent;
end;

它不显示帮助文件.我究竟做错了什么？