VPF::Winsock - Форум программистов

kartoshkins

Дата 22.7.2009, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 19.7.2009

Репутация: нет
Всего: нет

установил delphi 2009 запустил исходник каорый работал на 7 делфи и появились ошибки

Код


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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
Form1: TForm1;
wsdata : TWSAData;
host:string;
adr: sockaddr_in;
implementation
function Resolve(host: string):string;
var
IP:string;
hostEnt : PHostEnt;
hostName : array [0..255] of char;
addr : PChar;
begin
result:=host;
try
strpcopy(hostname, host);
hostEnt := gethostbyname(hostName);
if Assigned(hostEnt) and Assigned(hostEnt^.h_addr_list) then
begin
addr:=hostEnt^.h_addr_list^;
IP:=Format('%d.%d.%d.%d', [byte(addr[0]), byte(addr[1]), byte(addr[2]), byte(addr[3])]);
end;
result:=ip;
except
end;
end;

ругаеться на

Код


hostEnt := gethostbyname(hostName);//[DCC Error] Unit1.pas(36): E2010 Incompatible types: 'Array' and 'PAnsiChar'
addr:=hostEnt^.h_addr_list^;//[DCC Error] Unit1.pas(39): E2010 Incompatible types: 'AnsiChar' and 'Char'
adr.sin_addr.s_addr :=inet_addr(pchar(host));//[DCC Error] Unit1.pas(60): E2010 Incompatible types: 'Char' and 'AnsiChar'

что тут попровить нужно?

dvamaster

Дата 23.7.2009, 07:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

в D2009 тип Char соотвествует WideChar
а в некоторых WinAPI функциях используется AnsiChar

выход: тип Char поменяй на AnsiChar

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »