Подопытные

[zumm]

Приветствую. Есть проблема: программа работает только на одной машине. На любой другой (из 5 протестированных, которые были дома под рукой) работать отказывается.

Суть программы: тыкаете на кнопочку, и файл test.flac через synapse отправляется гуглу на разгадывание. После 5-6 секундного раздумья ShowMessage показывает ответ. Если там пусто - программа не работает.

Я уже весь извелся, не пойму причины этого странного поведения. Прошу вашей помощи в тестировании, сработает ли программа у кого то из вас?

Вот сама программа: тырц

PS: Сразу извиняюсь за "дружественный" интерфейс

UPD: То есть, проблема в том, что на других машинах файл просто не передается никуда, а сразу возвращается ошибка 500.

[BDA]

Пустой showmessage.

[zumm]

Вот вот. А я при запуске вижу вот это:

[Serge_Bliznykov]

после нажатия кнопки Button1 песочные часики повисели секунд двадцать и выдался пустой мессадж...

(win 7, если что...)

[Аватар]

Пустой. win7(64). Сразу, без всяких задержек

[BDA]

Может быть, исходник тоже выложите?

[zumm]

Исходник прост как моя жизнь:

uses
  HTTPSend;

procedure TForm1.Button1Click(Sender: TObject);
const
  CRLF = #$0D + #$0A;
var
  Boundary: String;

  procedure WriteString(const AStream: TStream; const AString: String);
  var
    LBytes: TBytes;
  begin
    LBytes := TEncoding.Default.GetBytes(AString);
    AStream.Write(LBytes[0], Length(LBytes));
  end;

  function StreamToString(const AStream: TStream; AEncoding: Cardinal = 65001): String;
  begin
    if AStream <> nil then
    begin
      with TStringStream.Create('', AEncoding) do
      begin
        try
          CopyFrom(AStream, 0);
          Result := DataString;
        finally
          Free;
        end;
      end;
    end
    else
    begin
      Result := '';
    end;
  end;
begin
  Boundary := IntToHex(Random(MaxInt), 8) + '_SynapseBoundary';

  with THTTPSend.Create do
  begin
    try
      with Document do
      begin
        LoadFromFile('test.flac');
        Position := 0;
      end;

      WriteString(Document, '--' + Boundary + CRLF);
      WriteString(Document, 'Content-Disposition: form-data; name="userfile"; filename="test.flac"' + CRLF);
      WriteString(Document, 'Content-Type: audio/x-flac; rate=16000' + CRLF + CRLF);

      with Document do
      begin
        Position := Size;
      end;

      WriteString(Document, CRLF + '--' + Boundary + '--' + CRLF);
      MimeType := 'audio/x-flac; rate=16000, boundary=' + Boundary;

      HTTPMethod('POST', 'http://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU');
      ShowMessage
      (
        'Status: ' + ResultString + CRLF +
        'UploadSize: ' + IntToStr(UploadSize) + CRLF + CRLF +
        StreamToString(Document)
      );
    finally
      Free;
    end;
  end;
end;

Тут правда еще немного отладочной информации добавилось.

UPD: И вот почему у Serge_Bliznykov что-то куда то отправлялось, а у Аватар, даже пытаться не стало?

[Utkin]

Выдал xml'ку с заголовком Error 400 Bad Request!!1 (Прям вот после восклицательных знаков единичка).

[SaLoKiN]

win 8(x64) за пару секунд вывалило вот чего...

[Utkin]

Сообщение от SaLoKiN

win 8(x64) за пару секунд вывалило вот чего...

Ну вот у меня также