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 ¿´Ò»ÏÂÊÇ·ñ¿ÉÒÔ£¿
ûÓзÀ»ðǽ£¬Ö÷ÒªÊÇÓ󬼶ÖÕ¶Ë¿ÉÒÔ£¬¶ø×Ô¼ºÐ´µÄ¿Í»§¶Ë¾ÍÄǸö¶Ë¿Ú²»ÐÐ²ÅÆæ¹Ö¡£
ÓÐûÓÐÄĸö´ó¸çÖª
Ïà¹ØÎÊ´ð£º
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
Ç󹺴øÓÎÏ·´óÌü¼°¡°Ó®ÈýÕÅ¡±ÆË¿ËÓÎÏ·µÄDELPHIÔ´´úÂ룬ÁªÏµQQ£º861973982
¾ßÌåÄÚÈÝQQÏê̸¡£
û¼û¹ý
°ï¶¥
Ó®ÈýÕÅ¡±ÆË¿ËÓÎÏ· ?
ûÌý˵¹ý.ûÌý˵¹ý.
Ó®ÈýÕÅ ÊDz»ÊÇË׳ÆÕ¨¼¦µÄÓÎÏ·°¡
Ã»Íæ¹ýÕâ¸öÓÎÏ· ......
ûѧ¹ýDELPHI¡£¡£ÒòΪҪά»¤Ò»¸ödelphiµÄÏîÄ¿£¬´ó¼Ò°ï°ïæ
½«±¾µØÊÓÆµÔÚÍøÂçÉÏ´«ËÍ¡£¡£Óõ½µÄÊÇsocket¡£¡£
ÏëÎÊÏ ¿ÉÒÔ½«ÊÓÆµ×ª»»³ÉʲôÑùµÄ¸ñʽ¡£¡£
µ±È»¿ÉÒÔ¡£±ÈÈç°ÑÊÓÆµÁ÷ת³ÉÊ®Áù½øÖÆÔÙдµ ......