Bueno, te he preparado un rápido ejemplo sobre el chat que te envié antes y sin usar componentes de VCL. Sokets "a pelo".
En el chat, si el cliente envía "Envia Fichero" (sin acento para no confundir caracteres), el servidor envía un fichero llamado Prueba0.bmp que es un bmp grande. El cliente lo recibe y lo guarda como Prueba.bmp. A continuación el server recibe la palabra y sigue la comunicación...
Te expongo las funciones que envían y reciben el fichero:
TransmitFile.h
Código PHP:
#ifndef TRANSMIT_FILE_H
#define TRANSMIT_FILE_H
void TransmitFile(SOCKET Sock, char* lpPathName);
void ReceiveFile(SOCKET Sock, char* lpPathName, int FileSize);
void ReceiveFile(SOCKET Sock);
#endif
TransmitFile.cpp
Código PHP:
#include <windows.h>
#include <winsock2.h>
#include <Mswsock.h>
#include "TrasmitFile.h"
struct TFileData{
char FilePath[MAX_PATH*2];
int FileSize;
};
void TransmitFile(SOCKET Sock, char* lpPathName)
{
if(Sock == INVALID_SOCKET || !lpPathName) return;
if(!*lpPathName) return;
char Msg[10];
HFILE hFile = _lopen(lpPathName, OF_READ);
if(hFile == -1) return;
int FileSize = GetFileSize((HANDLE)hFile, 0);
TFileData FileData;
strcpy(FileData.FilePath, lpPathName);
FileData.FileSize = FileSize;
send(Sock, (char*)&FileData, sizeof(TFileData), 0);
recv(Sock, Msg, sizeof(Msg),0);
if(!strncmp(Msg, "Ok", 2)){
TransmitFile(Sock, (HANDLE)hFile, FileSize, 0,0,0,0);
}
_lclose(hFile);
}
void ReceiveFile(SOCKET Sock)
{
TFileData FileData;
recv(Sock, (char*)&FileData, sizeof(FileData),0);
send(Sock, "Ok", 2, 0);
ReceiveFile(Sock, "Prueba.bmp", FileData.FileSize);
}
void ReceiveFile(SOCKET Sock, char* lpPathName, int FileSize)
{
int Size = 1024*10;
BYTE *Buffer = (BYTE*)VirtualAlloc(0, Size, MEM_COMMIT, PAGE_READWRITE);
UINT Len = 0;
int nBytes = 0;
HANDLE hFile = CreateFile(lpPathName, GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
if(hFile != INVALID_HANDLE_VALUE){
do {
Len = recv(Sock, Buffer, Size, 0);
if(Len == -1) break;
_lwrite((int)hFile, Buffer, Len);
nBytes += Len;
} while (nBytes != FileSize);
CloseHandle(hFile);
}
VirtualFree(Buffer, 0, MEM_RELEASE);
}
Usa la API TransmitFile, que usa socket, puedes sustituirla por una función equivalente a bajo nivel.
PD/ Borro el anterior chat porque este es idéntico, añadiendo la nueva funcionalidad
Saludos.