bool   __fastcall   TForm1::Port(char   *ip,int   port)
{

    WORD   wVersionRequested;
WSADATA   wsaData;
int   err;

wVersionRequested   =   MAKEWORD(   1,   1   );

err   =   WSAStartup(   wVersionRequested,   &wsaData   );
if   (   err   !=   0   )   {

return   false;
}

if   (   LOBYTE(   wsaData.wVersion   )   !=   1   ||
                HIBYTE(   wsaData.wVersion   )   !=   1   )   {
WSACleanup(   );
return   false;
}
SOCKET   sockClient=socket(AF_INET,SOCK_STREAM,0);

SOCKADDR_IN   addrSrv;
addrSrv.sin_addr.S_un.S_addr=inet_addr(ip);
addrSrv.sin_family=AF_INET;
addrSrv.sin_port=htons(port);
int   nret=connect(sockClient,(SOCKADDR*)&addrSrv,sizeof(SOCKADDR));
                 
if(nret==0)
{
                      closesocket(sockClient);
                      WSACleanup();
                      return   true;
}
                else
                {
                      closesocket(sockClient);
                      WSACleanup();
                      return   false;
                }

}

可以先检查一下IP是不是可用的，然后再扫描端口就ＯＫ了

这段代码有问题吧？

if(nret==0)
{
                      closesocket(sockClient);
                      WSACleanup();
                      return   true;
}
else
{
        closesocket(sockClient);
        WSACleanup();
        return   false;
}

用异步的方式，自己控制超时（0-1000000…ms）！

connect后用select来检测结果

具体怎么避免ip不存在，或者端口没开的问题呢？

该回复于2008-07-19 16:13:33被版主删除

最近，受朋友之托，来此收购BCB开发的共享软件，或者自己感觉做的不错的小工具软件，如果哪位朋友有用BCB做的得意之作想出售的请联系我！

JF

看软件定价格，我是认真的，请有的人联系我QQ:2155755

强制锁定桌面的要不？
重启后仍能保持锁定

20万的要不?

只要BCB的么？

最好是bcb开发的，有的请赶紧联系我

顶一下，没有可以合作的人吗？

要提供协议、或者合同之类的文档参考

嘿嘿,看看我的网站吧
http://www.devloft.cn

http://download.csdn.net/user/windsky0821
瞧瞧先，要软件个儿下BCB原汁原味的，要代码再说哈
http://homesoft.goofar.com

to   joyous：           需要代码并提供相关文档，和协议说明
to   windsky0821:   你如果有好的软件，可以联系我QQ:21557555

to   ZQGet()   :可以和我联系，我收购你的软件和代码

生意这么火

有钱途

我自己做了一个图像处理软件(bmp)!
可以实现对文字的提取
能值多少?

看具体演示而定

顶

mark

我用BCB做了一个
1、.net   C#   对数据库操作的代码生成器，
2、数据库安装工具，
需要的话联系我
QQ:63467695
e-mail:hbqc_zh@163.com
MSN:hbqc_zh@hotmail.com

继续收购啊，有的联系我啊

up.

windsky0821  : http://www.devloft.cn  那網站有木馬，要小心。NOD32報的.

c++builder2007 下载地址，iso文件，用winrar解压就可以安装
http://www.ccysy.com/Article/Article_20070930130759.html

123

安装序列号和注册名及密码有人知道吗?

老妖的www.ccrun.com早就有下载了

不过，还是谢谢楼主的热情！

我帮老妖的网站分担分担流量

谢谢了，我找了很久了

1.6G,能不能精减到1个CDROM？

安装时是否需要联网?

谢谢楼主!

速度不错平均0.8M/s
不怕把你们学校的服务器拖垮了吧！

呵呵，当然怕了，所以也希望大家都手下留情，如果谁有什么好东西可以放到我的服务器上供大家下载!

谢了！

确实不错，下载速度很快。

我安装了，是正宗完整版本。Borland建筑师版本，包含C++Builder 2007，Delphi和Delphi.NET，属于Update 3版。其它网上我没看到过。太棒了！

谢谢楼主！

太棒了！

谢谢楼主！

尚未下载，先感谢一下。

下载中。。。。。 谢谢。

确实不错，下载速度很快。

我安装了，是正宗完整版本。Borland建筑师版本，包含C++Builder  2007，Delphi和Delphi.NET，属于Update  3版。其它网上我没看到过。太棒了！

谢谢楼主！

下载看看，谢楼主

20070930?这不是最新的包吧？建议要么重新做一份（原件：http://altd.codegear.com/download/radstudio2007/CodeGearRADStudio2007_v11.0.2804.9245.5.iso），谢谢。

  一个小学的网站吗,居然有这么先进的东西 ,实在好.

谢*2007+CB

楼主，包含Delphi2007吗？？

这不会是七剑提供的吧，你们看，他网上也有啊

http://www.zzg.3126.net/ShowFile.asp?FID=188

的确是好东西啊，太感谢了。。。

正在下，谢谢您！

我下了,但是不敢安装,我的机子上安装有BCB6,我不知道与2007有没有冲突!

我下了,但是不敢安装,我的机子上安装有BCB6,我不知道与2007有没有冲突!
==================
不会冲突。

mark

下载完了，安装说我序列号不正确，没法安装

删除自带的radstudio2007.slip文件(建议备份起来)，不是就无法出现输入序列号的界面

安装超级慢，和VS2005不相上下……

到处在找啊，谢谢楼主的奉献…

谢谢了!
速度很快,1.13M/S ,不错,你学校的带宽够强的!

谢了

不用客气，我这里是网通的，速度还可以，但是电信的用户访问就完蛋了

很可惜啊，这个版本的soap webservice application开发向导产生的代码就有问题，编译能通过，但不能运行（注册），还不如C++Builder 6.0。

体积太大了，我的电脑受不了，iso文件直接就可以运行安装吗？

正在下载速度很快啊~ⷾ2.6MB

安装序列号和注册名及密码要怎么获取呀，请问有没有谁说下，谢谢

谢谢，下载了，可以用。
好像安装时不需要序列好等。

up

安装序列号和注册名及密码要怎么获取呀，请问有没有谁说下，谢谢
—————————————————-
里边有个破解文件的文件夹里有啊

to h98458
安装序列好，到Codegear申请个，网上也有，
安装完后，不要运行，直接用那个破解的覆盖原来的文件即可
既然带了破解，可能也带了sn，我没下载过，

谢谢。。。。。。

感谢楼主~

AnsiString  str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
        str += fileDB+";Persist Security Info=false; ";
上面是我的连接字符串，没密码是正确的，有密码后，不知道连接字符串该怎么变，试了几个也不行，请高手指教，我用的是Access2003

全部的测试连接串为:
Provider=Microsoft.Jet.OLEDB.4.0;Password=qqq;Data Source=aaa;Persist Security Info=True

Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=E:\DATA\ddd.MDB;
Persist Security Info=False;
//下面的指定你设置ACCESS的密码.
Jet OLEDB:Database Password=11223344

C/C++ code

ado_Connection->LoginPrompt = false;

不管连接什么数据库，新建一个文本文档，后缀改成UDL，双击打开配置好，再用记事本打开，里面的内容用来做连接字符串就可以了

我用Powersock组件写一个网络检测程式,但是在连接时提示:Connection failed(Error code:10035)
程序如下:
Powersock1->Host = Edit1->Text;
Powersock1->Port = StrToInt(Edit2->Text);
Powersock1->Timeout = StrToInt(Edit3->Text);
Powersock1->Resol……(忘了怎么写了) = …Basic;
Posersock1->Connect()  //执行到这句时提示连接fail(触发了OnConnectFail事件)

确定IP和端口都是正确的，也可以ping通，ip设：127.0.0.1也是一样

书上介绍的.它不是一个Ping的功能吗?怎么还需要服务器端.

即使是Ping功能，但Ping也是建立1次连接的过程

连接是需要双方的参数，1方怎么连呢？、、、、

我想在我刚刚实现的数据库存储图片程序的基础上拖动图片的大小!

是在按下鼠标后出现拖动的标志,然后在图片的右下角拖动图片将其放大.实现对图片的放大或缩小.

http://topic.csdn.net/t/20030106/17/1332155.html

5 楼jishiping（JSP 季世平）回复于 2003-01-06 18:30:16 得分 100其实很简单，不需要写什么程序： 
  1.  设定Image的属性DragKind=dkDock;  DragMode=dmAutomatic;  设定Form 
  的属性DockSite=true。 
  2.  在Image的事件OnEndDock里写一行代码就可以了： 
  void  __fastcall  TForm1::Image1EndDock(TObject  *Sender,  TObject  *Target, 
              int  X,  int  Y) 
  { 
          Image1->HostDockSite  =  (TWinControl*)0xFFFFFFFF; 
  }

不好意思 回答错了，这个是拖动位置的

简单写了一个：

C/C++ code

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        if(X>Image1->Width-10 && Y>Image1->Height-10)
        {
                Image1->Cursor=crSizeNWSE;
                if(Shift.Contains(ssLeft))
                {
                        Image1->Width=X;
                        Image1->Height=Y;
                }
        }
        else
                Image1->Cursor=crDefault;
}
//—————————————————————————

if(Shift.Contains(ssLeft))
这一句是什么意思？
1.  设定Image的属性DragKind=dkDock;  DragMode=dmAutomatic;  设定Form   
  的属性DockSite=true。
这个方法我尝试过了，但是不我想要的效果，这个相当于又出来了一个FORM。
感谢你们的回答。

我想补充下当鼠标移动到图片的角落的时候出现可以拖动的标识，例如Image1->Cursor=crSizeA然后可以拖动他。
当鼠标按下不放时可以把他移动。这部分功能我基本实现了，但是我不知道如何响应的鼠标压下台起等动作，
还有将图片扩大或缩小的程序原理不是很清楚，
我说的可能比较罗嗦，真诚求教。

如果能用滚轮滚动得到放大和缩小也可以。

我油箱是liu3039345@126.com
希望能有源码。

//使用窗体的滑轮滚动事件，判断鼠标位置，如果在图片上滚动时就放大缩小图片

C/C++ code

void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
      int WheelDelta, TPoint &MousePos, bool &Handled)
{
        POINT P;
        GetCursorPos(&P);
        ::ScreenToClient(Handle,&P);
        if(P.x > Image1->Left
           && P.x < Image1->Left+Image1->Width
           && P.y > Image1->Top
           && P.y < Image1->Top+Image1->Height)
        {
                if(WheelDelta<0)
                {//下滚放大
                        Image1->Width=Image1->Width+1;
                        Image1->Height=Image1->Height+1;
                }
                else
                {//上滚缩小
                        Image1->Width=Image1->Width-1;
                        Image1->Height=Image1->Height-1;
                }
        }
}
//—————————————————————————

谈谈数字图像的缩放算法
http://rockcarry.home.sunbo.net/show_hdr.php?xname=AHAETV0&dname=IGB7831&xpos=2

up

谢谢,我会尝试,继续求教.

放到paintbox里好点吧。

友情Up!

请问用 CB实现对数据库实现同时向两个 数据库写数据，不是 两张表，是两 个 数据库名
例如：its
    itses
我用oracle数据库比较多。希望能给点指引，有代码更好，
我不知道该向什么方向出发，是数据库的问题吗？用触发器还是BC代码线程处理。
本人刚学编程，对面向对象的过程和写程序的结构不是很清除。希望指点。

用2个ADOConnection连接2个数据库，分别操作，不就得了

请问用 CB实现对数据库实现同时向两个 数据库写数据，不是 两张表，是两 个 数据库名
例如：its
    itses
我用oracle数据库比较多。希望能给点指引，有代码更好，
我不知道该向什么方向出发，是数据库的问题吗？用触发器还是BC代码线程处理。
本人刚学编程，对面向对象的过程和写程序的结构不是很清除。希望指点。

该回复于2008-07-21 09:10:08被版主删除

用两个SQL语句就可以了
insert into its.表名 values()
insert into itses.表名 values() 

可以用两个线程分别对不同的数据库操作

两个SQL语句

需要放两个连接组件，如果是一个的话需要写完一个，切换数据库连接再写另一个。

SPCOMM.pas在BCB6下安装编译时出现：
[Pascal Hint]SPCOMM.PAS(207):Private Symbol 'SetParity' declared but never used

有没有简单的收发例子。

为何总是用各种控件呢？摩莎的Pcomm非常好用，不用安装，直接考到工程目录下就可以用，也有非常简单易读的帮助，还有范例程序。我用了好几年了，打遍所有问题。

学习

这个问题我以前也接触过，开始的时候我也找不到问题的原因，后来我进了一个技术交流群，这个群里的人挺多的，在里面可以沟通技术，你可以进去看一下.群号是：五+九+零+四+九+二+六+八。另外，这个群里可以接项目。

StringGrid1显示单元格如何控制显示的内容在中央？（包括上下中央，左右中央)

不过这样标题栏颜色也没了，可以改回DefaultDrawing = true;

再在上面代码前加一句: StringGrid1->Canvas->FillRect(Rect); //填充单元格画布

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
      StringGrid1->Cells[1][1]="中华人民";
}
//—————————————————————————
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
      if (ARow==1 && ACol==1)
        {
            StringGrid1->Canvas->Brush->Color=clRed;
            StringGrid1->Canvas->FillRect(Rect);
            StringGrid1->Canvas->Font->Color=clWhite;
            String s=StringGrid1->Cells[ARow][ACol];
            int txtwidth =StringGrid1->Canvas->TextWidth(s); //文本宽度
            int txtheight=StringGrid1->Canvas->TextHeight(s);
            StringGrid1->Canvas->TextOut(
                  Rect.Left+(Rect.Width()-txtwidth)/2,
                  Rect.Top+(Rect.Height()-txtheight)/2,
                  StringGrid1->Cells[1][1]);
        }
}
多谢！