Помогите справиться с задачей

[dangreen]

да пожалуста, скажите как через 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

а какие юзесы и переменные к этому?

[evd]

а какие юзесы и переменные к этому?

Код: Выделить всё

uses httpsend, synautil;

var
   http: THTTPSend;
   i,Size: integer;


[dangreen]

спасибо!

[v-t-l]

а какие юзесы и переменные к этому?

Код: Выделить всё

uses Brain, Eyes, Hands;

dangreen
а Вы не блондинко случайно, или на Вашу психику так разрушительно действует MacOS

Добавлено спустя 1 минуту 1 секунду:
Извините, не сдержался.

[ViTality]

uses Brain, Eyes, StraightHands;

FXD

[dangreen]

а какие юзесы и переменные к этому?

Код: Выделить всё

uses Brain, Eyes, Hands;

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


[Maxizar]

v-t-l - Получили... Надо было учиться на моем печальном опыте

[v-t-l]

Человек явно не пытается учиться, ведет себя как капризная барышня, подход не "помогите разобраться, как это работает", а "покажите, какие буквы и цифры ввести, чтобы получилось". Странно, что еще кто-то отзывается.

[ViTality]

да вот я тоже удивился как после этого сообщения ему продолжили помогать.
видимо v-t-l решил потренировать свое человеколюбие и терпимость к хамству...

последнее время вопросы в этом раздел все больше и больше мне напоминают нечто - "мне тут по учебе пришлось залезть в вашу яму с д...мом , так что нырнули все разом по быстрому, написали мне че-как, а то у меня уже туфельки заморались"

[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 таким способом не ловится ...

[dangreen58]

как вызвать в лазарус окно авторизации юзера http://puu.sh/1ym7
для того чтобы можно было через TProcess использовать sudo команды?