Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌ⡢ƽÃæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

jmp,je,jnzÔÚdelphiÖеÄд·¨

function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
  mov eax,[eax]
  xor eax,[ecx+4]
  cmp eax,0
  je @b
 end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ