[تنبيه - عنوان غير مناسب : ]Ip

انتبه إلى uses

في حال كان الكود غير واضح راجع الملف المرفق

حكمت سراج الدين

uses Winsock;

function getIPs: Tstrings;

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 := TstringList.Create;

Result.Clear;

GetHostName(Buffer, SizeOf(Buffer));

phe := GetHostByName(buffer);

if phe = nil then Exit;

pPtr := PaPInAddr(phe^.h_addr_list);

I := 0;

while pPtr^ <> nil do

begin

Result.Add(inet_ntoa(pptr^^));

Inc(I);

end;

WSACleanup;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetIps.text);

end;

[code]

حكمت سراج الدين

ip.txt

الف شكر للرد

و لكن انا مش عارف اجيب Winsock

ممكن ارسال ملف بالدلفي ؟؟؟؟؟؟؟؟؟؟؟

انا شاكر

مارح تجيبها من اي مكان , فقط اكتبها ضمن ال uses

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Winsock;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم