Отправить файл на сервер

[Хоттабич]

Приветствую всех, есть проблема с отправкой запроса на сервер, в запросе отправляю файл вот таким образом:

	LPSTR hdrs ="Content-type: multipart/form-data, boundary=Jfbvjwj3489078yuyetu";
	static LPSTR accept[2]={"*/*", NULL};
	
	LPSTR szFile = "C:\\12345.jpg";
	LPSTR szFileName = "12345.jpg";


	HANDLE hFile;
	DWORD dwFileSize, dwRead;  
	LPBYTE pBuf = NULL;
	LPBYTE pDataStart = NULL;
	DWORD dwDataToSend = 0;
	long x;

	LPSTR szFnamePrefix = "--Jfbvjwj3489078yuyetu\r\ncontent-disposition: form-data; name=\"fname\"\r\n\r\n";
	LPSTR szDataPrefix = "\r\n--Jfbvjwj3489078yuyetu\r\ncontent-disposition: form-data; name=\"data\"; 
filename=\"12345.jpg\"\r\nContent-Type: application/octet-stream\r\n\r\n";
	LPSTR szDataPostfix = "\r\n--Jfbvjwj3489078yuyetu--";

	hFile = CreateFile(szFile, GENERIC_READ, 0, NULL, OPEN_EXISTING, 0, 0);  
	dwFileSize = GetFileSize(hFile, NULL);  
	pBuf = (LPBYTE)HeapAlloc(GetProcessHeap(), 0, dwFileSize + 2048);

	pDataStart = pBuf;
	x = lstrlen(szFnamePrefix);
	lstrcpyn((LPSTR)pDataStart, szFnamePrefix, x + 1);
	pDataStart += x;

	x = lstrlen(szFileName);
	lstrcpyn((LPSTR)pDataStart, szFileName, x + 1);
	pDataStart += x;

	x = lstrlen(szDataPrefix);
	lstrcpyn((LPSTR)pDataStart, szDataPrefix, x + 1);
	pDataStart += x;

	ReadFile(hFile, pDataStart, dwFileSize, &dwRead, NULL);
	pDataStart += dwRead;

	x = lstrlen(szDataPostfix);
	lstrcpyn((LPSTR)pDataStart, szDataPostfix, x + 1);
	pDataStart += x;

	dwDataToSend = pDataStart - pBuf;

	HINTERNET hOpenHandle = ::InternetOpen(NULL, INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
	if(hOpenHandle){
		HINTERNET hConnectHandle = ::InternetConnect(hOpenHandle, TEXT("www.mysite.com"),
INTERNET_DEFAULT_HTTP_PORT, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 1u);
		if(hConnectHandle){ Memo2->Lines->Add("Internet connect - true");
			HANDLE hResourceHandle = ::HttpOpenRequest(hConnectHandle, TEXT("POST"), 
TEXT("/some_dir/upload.php"), NULL, NULL, (LPCSTR*)accept, 0, 1);
			if(hResourceHandle){Memo2->Lines->Add("Internet request - true");
			       Memo2->Text = Memo2->Text + ::HttpSendRequest(hResourceHandle, hdrs, 
strlen(hdrs), pBuf, dwDataToSend);
                               DWORD dwError = GetLastError();
                               Memo2->Text = Memo2->Text + " error-"+dwError;
			}
			InternetCloseHandle(hResourceHandle);
		}
		InternetCloseHandle(hConnectHandle);
	}
	InternetCloseHandle(hOpenHandle);

	HeapFree(GetProcessHeap(), 0, pBuf);
	CloseHandle(hFile);

на сервере файл принимает php скрипт и копирует в ту же директорию:

<?php

    $ip=getenv("REMOTE_ADDR"); 
    copy($_FILES['data']['tmp_name'], $ip."_".basename($_FILES['data']['name'])); 


?>

Когда в InternetConnect прописываю 127.0.0.1 или localhost (файл находится по тому ж адресу /some_dir/upload.php) то на локальном компьютере файл копирует, а с www.mysite.com не хочет работать, причем ошибка выбивает - 0.

HINTERNET hConnectHandle = ::InternetConnect(hOpenHandle, TEXT("127.0.0.1"),
INTERNET_DEFAULT_HTTP_PORT, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 1u);

ПОМОГИТЕ ПОЖАЛУЙСТА...

[Хоттабич]

Заметил где обрывается запрос, когда отправляю запрос на сайт mysite.com то все работает, а вот когда на mysite.ukrhost.com то нет, значит проблема в двух точках в имени хоста, может кто подскажет как это обойти?

[rpy3uH]

InternetConnect к mysite.ukrhost.com происходит или нет?

[Хоттабич]

if(hConnectHandle)

это проходит, но судя по тому что запрос не доходит то думаю что нет.

[Хоттабич]

Тему можна закрывать, на сервере стояла переадресация.