dos 999
Сообщений: 331
Оценки: 0
Присоединился: 2007-12-17 10:49:07.556666
|
Клиент написан на Delphi отправляет файл
...
const
URL_POST = 'hots.ru/uploadtest.ashx';
...
procedure POSTFile(Filename: String);
var
TotalDataCount, i: Integer;
IdHTTP: TIdHTTP;
LPostStream: TIdMultiPartFormDataStream;
LResultStream: TStringStream;
LpostString: String;
function PostDecode(AString: String): String;
begin
Result := CharReplace(AString, '%', ' ');
Result := CharReplace(Result, '&', ' ');
end;
begin
IdHTTP := TIdHTTP.Create(nil);
try
IdHTTP.MaxLineLength := 0; //koi8-r windows-1252
LPostStream := TIdMultiPartFormDataStream.Create;
LpostString:= FileToString(Filename);
LPostStream.AddFormField('UserData', PostDecode(LpostString));
LResultStream := TStringStream.Create('');
try
try
IdHTTP.Post(URL_POST, LPostStream, LResultStream);
except
on E:Exception do
begin
Showmessage(E.Message);
end;
end;
showmessage(LResultStream.DataString);
finally
LPostStream.Free;
LResultStream.Free;
end;
finally
IdHTTP.Free;
end;
end;
файл uploadtest.ashx содержит скрипт
string x = "sdsdsd";
System.IO.File.WriteAllText(@"c:\text1.txt", x);
x это данные которые он принимает… файл сохраняеться но откуда то появляються лишние байты, пробовал менять кодировку, скорее всего дело в ней, но никак не могу подобрать нужную Кто сталкивался с такой проблемой… прошу помоч.
|