program wininet_pr_test;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows,
wininet,
inifiles,
shellapi;
var
conn_param,inet_open : hinternet;
Ini: Tinifile;
sip : String;
slogin: String;
spas: String;
procedure upload(filename:pchar; ftpfilename:pchar);
const
port=21;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'c:\MyIni.ini');
inet_open:=internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
sip:=Ini.ReadString('PSS','ip', 'default value');
slogin:=Ini.ReadString('PSS','login', 'default value');
spas:=Ini.ReadString('PSS','pass', 'default value');
sleep(100);
conn_param:=internetconnect(inet_open,sip,port,slogin,spas,INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open) ;
end;
Ругается на:
ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
[DCC Error] wininet_pr_test.dpr(41): E2010 Incompatible types: 'string' and 'PWideChar'
P.S. Если есть замечанию по коду, буду признателен. Я любитель)