Компилятор теперь не ругается, но на выходе получается:
"Project1 не является приложением Windows CE"И проблемма именно в "InternetReadFile(hURL, @Buffer, SizeOf(Buffer), @BufferLen);" без вызова этой процедуры программа запускается.
Добавлено спустя 5 часов 14 минут 34 секунды:В общем в итоге код такой
- Код: Выделить всё
{$IFDEF WINCE}
hSession:= InternetOpen(PWideChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
hURL := InternetOpenURL(hSession,PWideChar(fileURL),nil,0,0,0);
try
Stream.Clear;
repeat
InternetReadFileEx(hURL, @Buffer, SizeOf(Buffer), BufferLen);
Stream.Write(Buffer,BufferLen);
until BufferLen = 0;
finally
InternetCloseHandle(hURL)
end;
finally
InternetCloseHandle(hSession)
end;
{$ENDIF}
{$IFDEF WIN32}
hSession:= InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);
try
Stream.Clear;
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
Stream.Write(Buffer,BufferLen);
until BufferLen = 0;
finally
InternetCloseHandle(hURL)
end;
finally
InternetCloseHandle(hSession)
end;
{$ENDIF}
Win32 код работает великолепно. WinCe же часть не ругается, но и не работает. Перепробовал все функции InternetReadFile (Ex, ExA, ExW)
Добавлено: 12.11.2010 18:51:34