1:
2:
3:
4:
5:
6:

function FtpPutFile(
    hConnect: HINTERNET;
    lpszLocalFile: PChar;
    lpszNewRemoteFile: PChar;
    dwFlags: DWORD;
    dwContext: DWORD): BOOL;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure UploadData(RemoteFile: string; Data: TMemoryStream);
var hOpen, hUrl: HINTERNET;
    Buffer: array[0..1024] of Char;
    BytesRead: dWord;
    Data_written: Cardinal;
begin
 hOpen:= InternetOpen(PChar(FDesc), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hUrl:= InternetOpenUrl(hOpen, PChar(FHost), nil, 0, INTERNET_FLAG_RAW_DATA, 0);

 FillChar(Buffer, SizeOf(Buffer), 0);
 repeat
  FillChar(Buffer, SizeOf(Buffer), 0);
  Data.ReadBuffer(Buffer,sizeOf(Buffer));
  InternetWriteFile(hUrl,addr(Buffer),sizeof(Buffer),Data_Written);
 until (Data_Written<=0) or (data.Position>=data.Size);

 InternetCloseHandle(hurl);
 InternetCloseHandle(hOpen);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure UploadData(RemoteFile: string; Data: TMemoryStream);
var hOpen, hUrl: HINTERNET;
    Buffer: array[0..1024] of Char;
    BytesRead: dWord;
    Data_written: Cardinal;
begin
 hOpen:= InternetOpen(PChar(FDesc), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hUrl:= InternetOpenUrl(hOpen, PChar(FHost), nil, 0, INTERNET_FLAG_RAW_DATA, 0);

 Data.Position:= 0;
 //Data.Seek(0,soFromBeginning);
 FillChar(Buffer, SizeOf(Buffer), 0);
 repeat
  FillChar(Buffer, SizeOf(Buffer), 0);
  Data.ReadBuffer(Buffer,sizeOf(Buffer));
  InternetWriteFile(hUrl,addr(Buffer),sizeof(Buffer),Data_Written);
 until (Data_Written<=0) or (data.Position>=data.Size);

 InternetCloseHandle(hurl);
 InternetCloseHandle(hOpen);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var hOpen, hUrl: HINTERNET;
    BufferIn : INTERNET_BUFFERS;
    Buffer: array[0..1024] of Byte;
    TmpStream: TMemoryStream;
    cURL: string;
    Size: integer;
    BytesWritten: cardinal;
begin
 TmpStream:= TMemoryStream.Create;
 Form1.Memo1.lines.SaveToStream(TmpStream);
 cURL:= 'http://test.de/test.dat';

 hOpen := InternetOpen('Test', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hUrl := InternetOpenUrl(hOpen, PChar(cURL), nil, 0, INTERNET_FLAG_RAW_DATA, 0);

 try
  BufferIn.dwBufferTotal:= TmpStream.Size;
  Size:= TmpStream.Read(Buffer, 1024);
  // Size = 0
  InternetWriteFile(hUrl, @Buffer, size, BytesWritten);

  while (BytesWritten = Size) and (BytesWritten > 0) do
  begin
   size:= TmpStream.Read(Buffer, 1024);
   InternetWriteFile(hUrl, @Buffer, Size, BytesWritten);
  end;
 finally
  TmpStream.Free;

  InternetCloseHandle(hUrl);
  InternetCloseHandle(hOpen);
 end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function TUploader.UploadData(Source: string; RemoteFile: string): boolean;
var hOpen, hConnect, hFile: HINTERNET;
    Size: integer;
    Index: integer;
    toWrite: cardinal;
    BytesWritten: cardinal;
const Blocksize = 1024;
begin
 hOpen:= InternetOpen(PChar(FDesc), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 hConnect:= InternetConnect(hOpen, PChar(FHost), FPort, PChar(FUsername), PChar(FPassword), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
 hFile:= FtpOpenFile(hConnect, PChar(RemoteFile), GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0);
 try
  if Assigned(hFile) then
  begin
   Size:= Length(Source);
   Index:= 1;
   repeat
    toWrite:= Size - Index + 1;
    if toWrite>Blocksize then
     toWrite:= Blocksize;
    BytesWritten:= 0;
    if InternetWriteFile(hFile,@source[Index],toWrite,BytesWritten) then
     inc(Index,BytesWritten);
   until (BytesWritten < Blocksize) or (Index>Size);
   result:= true;
  end;
 finally
  InternetCloseHandle(hFile);
  InternetCloseHandle(hConnect);
  InternetCloseHandle(hOpen);
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

var hOpen, hConnect, hFile: HINTERNET;
    Size: integer;
    Index: integer;
    toWrite: cardinal;
    BytesWritten: cardinal;
    dwError : DWord;
    szBuffer : PChar;
    dwSize  : DWord;
const Blocksize = 1024;
begin
 hOpen:= InternetOpen(PChar(FDesc), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 hConnect:= InternetConnect(hOpen, PChar(FHost), FPort, PChar(FUsername), PChar(FPassword), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

 if Append then
  if Assigned(hConnect) then
   if not FtpCommand(hConnect, true, FTP_TRANSFER_TYPE_ASCII, PChar('APPE '+RemoteFile), 0) then
   begin
    showmessage(inttostr(GetLastError));
    dwSize:= 255;
    szBuffer:= StrAlloc(dwSize);
    try
     InternetGetLastResponseInfo(dwError, szBuffer, dwSize);
     showmessage(szBuffer);
    finally
     StrDispose(szBuffer);
    end;
   end;

 hFile:= FtpOpenFile(hConnect, PChar(RemoteFile), GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0);
 try
  if Assigned(hFile) then
  begin
   Size:= Length(Source);
   Index:= 1;
   repeat
    toWrite:= Size - Index + 1;
    if toWrite>Blocksize then
     toWrite:= Blocksize;
    BytesWritten:= 0;
    if InternetWriteFile(hFile,@source[Index],toWrite,BytesWritten) then
     inc(Index,BytesWritten);
   until (BytesWritten < Blocksize) or (Index>Size);
   result:= true;
  end;
 finally
  InternetCloseHandle(hFile);
  InternetCloseHandle(hConnect);
  InternetCloseHandle(hOpen);
 end;