Такое дело...мб кто ни будь знает В общем TIdHttp. Надо передать пост запрос, но в ответ не получать всю страницу, а только заголовки. Как такое можно сделать?
Подскажите. заставляю idhttp работать через прокси. Прверяю прокси в ручную в браузере все работает. Делаю авторизацию при помощи idhttp, не авторизует вернее через некоторые прокси работает а через некоторые нет. Пробывал Readtimeout, ставил 50000 все равно, Еше накатал прогу что бы проверять прокси, она просто авторизуется на сайте через прокси если удачно то отмечает что прокси рабочий. Потом эти рабочии прокси закидываю в прогу которая работает в 5 потоков некоторые из этих прокси уже не авторизуются. Есть мысли по этому поводу?
Как можно зная расширения файла, сделать Content-Type? К примеру: из .png сделать image/png PS: Делать руками почти не реально т.к. расширений на свете очень много
НTL - не особо понял, что вам нужно. Ну я так понял перед отправкой на сервер, вам нужно указать заголовок. Просто из имени отправляемого файла берете расширение, сохраняете в переменную, затем подставляете в заголовок. П.С по подробнее опишите проблему.
При отправке файла мульти постом делается так: Code: ---------345678 Content-Disposition: form-data; name="userfile"; filename="111.png" Content-Type: image/png Файл ---------345678 Так вот требуется сделать строку: Code: Content-Type: image/png Зная расширение файла Но вся проблема в том что для каждого расширение надо указывать уникальный "Тип данных" Вот пару примеров: .txt text/plain .exe application/x-msdos-program и т.д.
помогите исправить ощибки! const n=20;{maks dlina slova} var kolvo:array[1..n] of integer; slovo, stroka:string; i:integer; f:text; begin for i:=1 to n do begin assign(f,'c:\in.txt'); reset(f); while not eof(f) do begin readln(f,stroka); slovo:=''; for i:=1 to length (stroka) do begin if stroka in ['',''] then {v kvdratnih skobkah cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'} begin if length(slovo) > 0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1; slovo:=''; end else slovo:=slovo+stroka; end; if length(slovo)>0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1; end; close(f); assign(f,'c:\out.txt'); rewrite(f); for i:=1 to n do writeln(f,'slov iz',i,'bukv:',kolvo); close(f); readln; end.
Твой код ужасен! Расставил энды. В смысл кода не вникал, потому как ты не сказал что он должен делать. Code: const n = 20; {maks dlina slova} var kolvo: array[1..n] of integer; slovo, stroka: string; i, m, c: integer; f: text; begin for i := 1 to n do begin assign(f, 'c:\in.txt'); reset(f); while not eof(f) do begin readln(f, stroka); slovo := ''; for m := 1 to length(stroka) do begin if stroka[m] in [',',' '] then {v kvdratnih skobkah cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'} begin if length(slovo) > 0 then begin kolvo[length(slovo)] := kolvo[length(slovo)] + 1; slovo := ''; end else slovo := slovo + stroka[m]; end; if length(slovo) > 0 then kolvo[length(slovo)] := kolvo[length(slovo)] + 1; end; end; close(f); end; assign(f, 'c:\out.txt'); rewrite(f); for c := 1 to n do writeln(f, 'slov iz', c, 'bukv:', kolvo[c]); close(f); readln; end.
можно ли загрузить в dll как то файл формата *.mp3?просто мне не нужно что бы были лишние файлы в папке.или предложите другой вариант,если он есть.
В делфи есть редактор ресурсов (WorkShop) через него создай ресурс с mp3 внутри (многие виндовые функции поддерживают проигрывание файа из ресурса.) Или как вариант создать rc файл и скомпилить его в res через brcc32.exe и потом подключи этот ресурс к своему проекту
Возможно ли в pascal в ходе выполнения программы преобразовать тип переменной. допустим из integer сделать str и обратно?
