AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé!

Liên hệ QC

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia
13/6/06
Bài viết
4,649
Được thích
10,138
Giới tính
Nam
Nghề nghiệp
Giáo viên, CEO tại Bluesofts
Lần chỉnh sửa cuối:
Thử gì?
Có những lớp địa chỉ chỉ dùng cho mạng cục bộ. Nhìn 192.168 thì biết ngay đó là địa chỉ gì.

Nếu trong dòng lệnh (cmd) chạy
Mã:
ipconfig
thì địa chỉ nhìn trong đó là địa chỉ cục bộ.

Đọc "private network"
 
Upvote 0
Thử gì?
Có những lớp địa chỉ chỉ dùng cho mạng cục bộ. Nhìn 192.168 thì biết ngay đó là địa chỉ gì.

Nếu trong dòng lệnh (cmd) chạy
Mã:
ipconfig
thì địa chỉ nhìn trong đó là địa chỉ cục bộ.

Đọc "private network"
ket noi.jpgcái này có phải đã kết nối qua Intenet không anh

kieu manh vAnh cho em cai Mail em goi anh Test thử
 
Upvote 0
Upvote 0
Mạnh mới coi các Cổng Port mở dưới tường Lửa không Thấy có
Giò làm thủ công vậy xem sao Nha

1/ đặt Cho Nó cái Tên trong File Server là TestServer
2/ Mở cổng Port kết nối dưới tường lửa với tên đó
3/ Công Mặc định là 20010 hay cái gì đó tùy ý miễn sao 2 cái Server và Clinent phải giống nhau
5/ Nếu Mở cổng Port dưới tường lửa ko viết bằng code được thì tạm thời ta làm thủ công test ok xong tính sau
6/ Atools cũng kết nối qua công Port dưới tường lửa đó ( điều đó là bắt buột nếu ko cho kết nối thì nó sẻ chặn lại )
....
7/ Úp lại file Mạnh test ....
 
Lần chỉnh sửa cuối:
Upvote 0
Mạnh mới coi các Cổng Port mở dưới tường Lửa không Thấy có
Giò làm thủ công vậy xem sao Nha

1/ đặt Cho Nó cái Tên trong File Server là TestServer
2/ Mở cổng Port kết nối dưới tường lửa với tên đó
3/ Công Mặc định là 20010 hay cái gì đó tùy ý miễn sao 2 cái Server và Clinent phải giống nhau
5/ Nếu Mở cổng Port dưới tường lửa ko viết bằng code được thì tạm thời ta làm thủ công test ok xong tính sau
6/ Atools cũng kết nối qua công Port dưới tường lửa đó ( điều đó là bắt buột nếu ko cho kết nối thì nó sẻ chặn lại )
....
7/ Úp lại file Mạnh test ....
Em goi roi do anh test di
 
Upvote 0
Lâu rồi em có Download duoc 1 cái File chát qua mạng mà nó bắt cài Suore code để tối về em kiếm lại gởi cho anh ngâm cứu
Mà sao Bạn không xài 2 cái hàm vào 1 cái đi cho nó gọn và tiện hơn ... cái này lỗi có cái kia thay thế vậy ??!!
Nói chung đang đi đúng hướng mặt trời mọc đấy có điều chưa hiểu ra cách nó kết nối sao đó thôi ....
Rồi mò diết cũng có ngày ngộ ra he .......... ===\.-0-0-0-

Mã:
function GetIpPublic() String;
  var
  LJsonObj  : TJSONObject;
  str       : string;
  http      : TIdHttp;
  begin
    str:='';
    http:=TIdHTTP.Create(nil);
    try
        str:=http.Get('http://ipinfo.io/json');
        LJsonObj:= TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(str),0) as TJSONObject;
        str := LJsonObj.Get('ip').JsonValue.Value;
        LJsonObj.Free;
        http.Free;
        //showmessage('TJSONObject');
    Except
        str := GetMyIP();
        //showmessage('GetMyIP');
    end;
    result:=str;
end;
 
Lần chỉnh sửa cuối:
Upvote 0
Sao em Dowload cái Atool Free về tạo Sever mà không kết nối được nhỉ (1 máy win 7x32 - 1 máy win 8x64)
 
Upvote 0
Web KT
Back
Top Bottom