会员登录 用户名: 密码: 登录 新会员注册 [找回密码]
当前位置:编程论坛 >> C/S程序开发专区 >> Delphi编程论坛 >> 这些代码要出现在库单元里的什么位置才正确?
首页
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 531 个阅读者浏览上一篇主题  刷新本主题   平板显示贴子 浏览下一篇主题
 * 贴子主题:这些代码要出现在库单元里的什么位置才正确? 悬赏分30 [已结帖] 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 苦寒 帅哥哟,离线,有人找我吗?
  
  
  等 级:论坛游民
  积 分:2631
  专家分:1434
  提问帖:0/0
  回答帖:167
  总帖数:178
  经验值:284
  注 册:2008-4-25
给苦寒发送一个短消息 把苦寒加入好友 查看苦寒的个人资料 搜索苦寒在Delphi编程论坛的所有贴子 引用回复这个贴子 回复这个贴子

发贴心情 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function   LocalIP:string;   
implementation

{$R *.dfm}


function   LocalIP:string;   
  type   
          TaPInAddr   =   array   [0..10]   of   PInAddr;   
          PaPInAddr   =   ^TaPInAddr;   
  var   
          phe     :   PHostEnt;   
          pptr   :   PaPInAddr;   
          Buffer   :   array   [0..63]   of   char;   
          I         :   Integer;   
          GInitData             :   TWSADATA;   
    
  begin   
          WSAStartup($101,   GInitData);   
          Result   :=   '';   
          GetHostName(Buffer,   SizeOf(Buffer));   
          phe   :=GetHostByName(buffer);   
          if   phe   =   nil   then   Exit;   
          pptr   :=   PaPInAddr(Phe^.h_addr_list);   
          I   :=   0;   
          while   pptr^[I]   <>   nil   do   begin   
              result:=StrPas(inet_ntoa(pptr^[I]^));   
              Inc(I);   
          end;   
          WSACleanup;   
  end;


end.
你在函数中用到的一些其他单元文件必须要放到uses中,否则是不行的。


一生一死一悲欢
一冬一夏一苦寒

发帖:2008-5-12 12:57:00

本主题贴数8,分页:[返回帖子列表] [上一页] [1] [下一页]

 *树形目录 顶端 
主题:  这些代码要出现在库单元里的什么位置才正确?(1461字) - lfkm,2008年5月11日
    回复:  unit Unit1;interfaceuses Windows,..(1296字) - 苦寒,2008年5月12日
        回复:  [QUOTE[B以下是引用苦寒在2008-5-12 12:57:00的..(1435字) - lfkm,2008年5月12日
    回复:  连这些基础的都搞不明白怎么写码呀。[em09]DELPHI不只是会在组件里写就完了吧。而组件里也不..(306字) - lfkm,2008年5月12日
    回复:  操作型?自己多写代码!(22字) - Godfear,2008年5月12日
    回复:  var 是声明 procedure form.fun1v..(84字) - 若惜,2008年5月12日
    回复:  这些结构我也有,看了几遍。还是不明白怎么放它们。也许我是偏向操作型而不是理论型的吧。[em09]所..(126字) - lfkm,2008年5月11日
    回复:  lz看看这篇文章吧,有关单元文件结构的介绍。http://hi.baidu.com/lingyin..(113字) - crazypig,2008年5月11日

此主题已经结帖:

crazypig-5,苦寒-15,Godfear-5,若惜-5

 *快速回复:这些代码要出现在库单元里的什么位置才正确?  [ 回帖是一种美德 :) ]
会员账号 用户名    还没注册?    密码    忘记密码?
内容
  • HTML标签: 不可用
  • UBB标签: 可用
  • 贴图标签: 可用
  • 多媒体标签:可用
  • 表情字符转换:可用
  • 上传图片:不可用
  • 最多15KB
  • 点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]