Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi¿ª·¢µÄ¿Í»§¶ËÔõôÎÞ·¨Á¬½Ó9730¶Ë¿Ú?

·þÎñÆ÷ÊÇÒ»¸öÍøÂçÉ豸£¬Ä¿Ç°ÔÚÄÚÍø£¬IP¹Ì¶¨Îª192.168.1.123£¬¿ª·Å9707~9738¹²31¸öÁ¬Ðø¶Ë¿Ú(ÓÃXP×Ô´øµÄ³¬¼¶ÖÕ¶ËÊÔ¹ýÁË£¬ÕâЩ¶Ë¿Ú¶¼¿ÉÒÔÕý³£Á¬½Ó¡¢Í¨Ñ¶)¡£
ÓÃTcpClient¿Ø¼þдµÄ¿Í»§¶ËÈí¼þ£¬¾Í9730Õâ¸ö¶Ë¿ÚÎÞ·¨½¨Á¢Á¬½Ó¡¢Í¨Ñ¶£¬´úÂëÈçÏ£¬³ÌÐòÔËÐе½ ¡°MyTcpClient.Open;¡±Ê±¾Í±¨´í£¬MyTcpClient.OnError·µ»Ø10061ºÍ10057Á½¸ö´íÎó´úÂë¡£ÇëÎÊÊÇÔõô»ØÊ£¿

procedure TFormSMS.E1SendClick(Sender: TObject);
var
  MyTcpClient:TTcpClient;
  ID:DWORD;
  Rec:string;
  index:Integer;
begin
  MyTcpClient :=TTcpClient.Create(nil);
  MyTcpClient.BlockMode := bmBlocking;
  MyTcpClient.Name := 'MyTempTcpClient';
  MyTcpClient.OnError := TcpClient1Error;
  MyTcpClient.RemoteHost := RzEditE1IP.Text;
  MyTcpClient.RemotePort := RzEditE1Port.Text;
MyTcpClient.Open;  
  Sleep(100);
  if MyTcpClient.Active then
  begin
  if MyTcpClient.Sendln(RzEditE1Command.Text) > 0 then
  begin
  ...
  end;
  end;
  MyTcpClient.Close;
  MyTcpClient.Free;
end;

¿´¿´9730¶Ë¿ÚÊDz»ÊDZ»ÆäËû³ÌÐòÕ¼ÓÃÁË¡£

ûÓб»Õ¼Óã¬Õ¼ÓÃÁ˳¬¼¶ÖÕ¶ËÓ¦¸ÃÒ²Á¬²»ÉϲŶԡ£

ÊÇ·ñÓзÀ»ðǽ£¿
ÔÚ¿Í»§¶Ë£¬ÓÃtel ¿´Ò»ÏÂÊÇ·ñ¿ÉÒÔ£¿

ûÓзÀ»ðǽ£¬Ö÷ÒªÊÇÓ󬼶ÖÕ¶Ë¿ÉÒÔ£¬¶ø×Ô¼ºÐ´µÄ¿Í»§¶Ë¾ÍÄǸö¶Ë¿Ú²»ÐÐ²ÅÆæ¹Ö¡£

ÓÐûÓÐÄĸö´ó¸çÖª


Ïà¹ØÎÊ´ð£º

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi 2010 dbgrideh EhLib5.0.13 µ¼³öÎļþ³ö´í

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......

ÕÐdelphi³ÌÐòÔ±

¹¤×÷µØµãÔÚ½­ËÕÀ¥É½
delphi¿ª·¢¾­Ñ飺1Ä꣨º¬£©ÒÔÉÏ
ÊìÁ·Ê¹ÓÃSQL Server OracleµÈ³£ÓÃÊý¾Ý¿â
ÄܶÀÁ¢½â¾öÏà¹ØÎÊÌâ
ÎÒÃǹ«Ë¾ÒªÕÐdelphi³ÌÐòÔ±,²»ÖªµÀÒª¿ª¶àÉÙÒø×Ó£¬Çë¸÷λָ½ÌÖ¸½Ì

Â¥Ö÷£¬¿´¿´ÎÒÕ¦Ñù 5ÄêµÄdelph ......

ÀûÓÃArcGISºÍDelphi¿ª·¢µÄÎÊÌâ

ºÜ¼òµ¥µÄÎÊÌ⣬ÈçºÎÔÚ×é¼þmapcontrolÖÐÏÔʾAutoCAD»æÖƵĵØÍ¼ÐÅÏ¢£¿ÇëÏêϸָ½Ì


ʲôÇé¿ö£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿

mapcontrolÊÇʲô¶«Î÷ѽ
ÏÔʾAutoCAD»æÖƵĵØÍ¼ÐÅÏ¢,´ÓÍøÉÏÕҿؼþ°É,
»òÕßÄúÓнâÊÍ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ