Страница 5 из 5
Re: Помогите справиться с задачей
Добавлено: 22.03.2011 19:10:02
dangreen
evd писал(а):да пожалуста, скажите как через synapse http узнать размер файла на сервере не скачивая сам файл?
Самый простой способ это послать запрос HEAD
Код: Выделить всё
http.HTTPMethod('HEAD','http://example.org/file.exe');
Size:=-1;
for i := 0 to http.Headers.Count - 1 do
begin
if Pos('CONTENT-LENGTH:',UpperCase(http.Headers[i]))>0 then
begin
Size:= StrToIntDef(Trim(SeparateRight(http.Headers[i], ' ')), -1);
break;
end;
end;
Но не все сервера поддерживают HEAD
а какие юзесы и переменные к этому?
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 11:30:54
evd
а какие юзесы и переменные к этому?
Код: Выделить всё
uses httpsend, synautil;
var
http: THTTPSend;
i,Size: integer;
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 12:42:57
dangreen
спасибо!
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 15:12:46
v-t-l
dangreen писал(а):а какие юзесы и переменные к этому?
dangreenа Вы не блондинко случайно, или на Вашу психику так разрушительно действует MacOS
Добавлено спустя 1 минуту 1 секунду:Извините, не сдержался.
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 18:28:04
ViTality
v-t-l писал(а):uses Brain, Eyes, StraightHands;
FXD
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 18:57:31
dangreen
v-t-l писал(а):dangreen писал(а):а какие юзесы и переменные к этому?
dangreenа Вы не блондинко случайно, или на Вашу психику так разрушительно действует MacOS
Добавлено спустя 1 минуту 1 секунду:Извините, не сдержался.
от брюнетки слышу
Добавлено спустя 19 секунд:Код: Выделить всё
http.HTTPMethod('HEAD','http://repo.inmac.org/roxinf.xml');
Size:=-1;
for y := 0 to http.Headers.Count - 1 do
begin
if Pos('CONTENT-LENGTH:',UpperCase(http.Headers[y]))>0 then
begin
Size:= StrToIntDef(Trim(SeparateRight(http.Headers[y], ' ')), -1);
break;
end;
end;
пишет
Код: Выделить всё
An unhandled exception occurred at $00079F05 :
EAccessViolation : Access violation
$00079F05 THTTPSEND__HTTPMETHOD, line 394 of /Volumes/NEW/Roxy/RoxFTP//Developer/lazarus/components/synapse/httpsend.pas
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 19:23:46
Maxizar
v-t-l - Получили... Надо было учиться
на моем печальном опыте
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 22:06:06
v-t-l
Человек явно не пытается учиться, ведет себя как капризная барышня, подход не "помогите разобраться, как это работает", а "покажите, какие буквы и цифры ввести, чтобы получилось". Странно, что еще кто-то отзывается.
Re: Помогите справиться с задачей
Добавлено: 23.03.2011 22:35:32
ViTality
да вот я тоже удивился как после
этого сообщения ему продолжили помогать.
видимо
v-t-l решил потренировать свое человеколюбие и терпимость к хамству...
последнее время вопросы в этом раздел все больше и больше мне напоминают нечто - "мне тут по учебе пришлось залезть в вашу яму с д...мом , так что нырнули все разом по быстрому, написали мне че-как, а то у меня уже туфельки заморались"
Re: Помогите справиться с задачей
Добавлено: 07.04.2011 04:30:53
dangreen58
помогите еще разик
используя TProcess мне нужно записать в текстовую преременную вывод.
ну например при команде "df -h" вывод такой:
Код: Выделить всё
dangreen:~ dangreen$ df -h
Filesystem Size Used Avail Capacity Mounted on
/dev/disk1s2 231Gi 86Gi 146Gi 37% /
devfs 188Ki 188Ki 0Bi 100% /dev
map -hosts 0Bi 0Bi 0Bi 100% /net
map auto_home 0Bi 0Bi 0Bi 100% /home
/dev/disk1s3 66Gi 203Mi 66Gi 1% /Volumes/Rezerv HD
/dev/disk0s2 1.4Ti 1.3Ti 35Gi 98% /Volumes/Movie
/dev/disk2s2 726Gi 712Gi 14Gi 99% /Volumes/Media
/dev/disk2s3 19Gi 10Gi 8.5Gi 55% /Volumes/Untitled
/dev/disk3 7.0Mi 5.9Mi 1.1Mi 84% /Volumes/Untitled 1
как его ловить я понял, но вывод curl таким способом не ловится ...
Re: Помогите справиться с задачей
Добавлено: 13.04.2011 18:56:15
dangreen58
как вызвать в лазарус окно авторизации юзера
http://puu.sh/1ym7для того чтобы можно было через TProcess использовать sudo команды?