Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > отправка мимо сайта

Автор: NoliX 22.7.2005, 17:33

Я пишу рассыльщик почты по форумам типо этого, в принципе все получилось, принцип в том что имитируется отправка сообщения с формы, тоесть я создаю ссылку и в нее уже программа вбивает имя и сообщение, но вот проблема, если сообщение слишком большое (точное количество символов, после которого оно становится большим я сказать не могу ибо не знаю) то программа просто не заходит на ссылку, вылезает ошибка I/O error 1784
вот функция скачки файла из интернета

Код


function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen); {Вот в этом месте ошибка вылезает}
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

Народ, помогите, я не знаю что делать, может есть какой-то способ отправки сообщения с формы не через ссылку smile

Автор: NoliX 22.7.2005, 18:09

или может есть функция в Дельфи какая-нить, чтоб буквы русского алфавита в код преобразовать?