God & Torah

«Основа основ, фундаментальный принцип мудрости — знание о том, что есть Тот, Кто существует вечно и Он — первопричина всего сущего»Рамбам, Мишнэ Тора, Законы об основных принципах Торы 1, 1

God & Torah

«Основа основ, фундаментальный принцип мудрости — знание о том, что есть Тот, Кто существует вечно и Он — первопричина всего сущего»Рамбам, Мишнэ Тора, Законы об основных принципах Торы 1, 1

Freelancer - 14 may - Internet Work

14 May - Freelancer

38 % - Web-design
33 % - Text & Translate
29 % - Webmaster
20 % - Programming
12 % - Marketing


{ 
  The following function shows how to connect to a ftp server 
  and download a file. 
  It uses the functions from wininet.dll.

  You need a ProgressBar to show the progress and a Label to show progress informations. 
}

uses 
  WinInet, ComCtrls;

function FtpDownloadFile(strHost, strUser, strPwd: string; 
  Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean;

  function FmtFileSize(Size: Integer): string; 
  begin 
    if Size >= $F4240 then 
      Result := Format('%.2f', [Size / $F4240]) + ' Mb' 
    else 
    if Size < 1000 then 
      Result := IntToStr(Size) + ' bytes' 
    else 
      Result := Format('%.2f', [Size / 1000]) + ' Kb'; 
  end;

const 
  READ_BUFFERSIZE = 4096;  // or 256, 512, ... 
var 
  hNet, hFTP, hFile: HINTERNET; 
  buffer: array[0..READ_BUFFERSIZE - 1] of Char; 
  bufsize, dwBytesRead, fileSize: DWORD; 
  sRec: TWin32FindData; 
  strStatus: string; 
  LocalFile: file; 
  bSuccess: Boolean; 
begin 
  Result := False;

  { Open an internet session } 
  hNet := InternetOpen('Program_Name', // Agent 
                        INTERNET_OPEN_TYPE_PRECONFIG, // AccessType 
                        nil,  // ProxyName 
                        nil, // ProxyBypass 
                        0); // or INTERNET_FLAG_ASYNC / INTERNET_FLAG_OFFLINE

  { 
    Agent contains the name of the application or 
    entity calling the Internet functions 
  }

  { See if connection handle is valid } 
  if hNet = nil then 
  begin 
    ShowMessage('Unable to get access to WinInet.Dll'); 
    Exit; 
  end;

  { Connect to the FTP Server } 
  hFTP := InternetConnect(hNet, // Handle from InternetOpen 
                          PChar(strHost), // FTP server 
                          port, // (INTERNET_DEFAULT_FTP_PORT), 
                          PChar(StrUser), // username 
                          PChar(strPwd),  // password 
                          INTERNET_SERVICE_FTP, // FTP, HTTP, or Gopher? 
                          0, // flag: 0 or INTERNET_FLAG_PASSIVE 
                          0);// User defined number for callback

  if hFTP = nil then 
  begin 
    InternetCloseHandle(hNet); 
    ShowMessage(Format('Host "%s" is not available',[strHost])); 
    Exit; 
  end;

  { Change directory } 
  bSuccess := FtpSetCurrentDirectory(hFTP, PChar(ftpDir));

  if not bSuccess then 
  begin 
    InternetCloseHandle(hFTP); 
    InternetCloseHandle(hNet); 
    ShowMessage(Format('Cannot set directory to %s.',[ftpDir])); 
    Exit; 
  end;

  { Read size of file } 
  if FtpFindFirstFile(hFTP, PChar(ftpFile), sRec, 0, 0) <> nil then 
  begin 
    fileSize := sRec.nFileSizeLow; 
    // fileLastWritetime := sRec.lastWriteTime 
  end else 
  begin 
    InternetCloseHandle(hFTP); 
    InternetCloseHandle(hNet); 
    ShowMessage(Format('Cannot find file ',[ftpFile])); 
    Exit; 
  end;

  { Open the file } 
  hFile := FtpOpenFile(hFTP, // Handle to the ftp session 
                       PChar(ftpFile), // filename 
                       GENERIC_READ, // dwAccess 
                       FTP_TRANSFER_TYPE_BINARY, // dwFlags 
                       0); // This is the context used for callbacks.

  if hFile = nil then 
  begin 
    InternetCloseHandle(hFTP); 
    InternetCloseHandle(hNet); 
    Exit; 
  end;

  { Create a new local file } 
  AssignFile(LocalFile, TargetFile); 
  {$i-} 
  Rewrite(LocalFile, 1); 
  {$i+}

  if IOResult <> 0 then 
  begin 
    InternetCloseHandle(hFile); 
    InternetCloseHandle(hFTP); 
    InternetCloseHandle(hNet); 
    Exit; 
  end;

  dwBytesRead := 0; 
  bufsize := READ_BUFFERSIZE;

  while (bufsize > 0) do 
  begin 
    Application.ProcessMessages;

    if not InternetReadFile(hFile, 
                            @buffer, // address of a buffer that receives the data 
                            READ_BUFFERSIZE, // number of bytes to read from the file 
                            bufsize) then Break; // receives the actual number of bytes read

    if (bufsize > 0) and (bufsize <= READ_BUFFERSIZE) then 
      BlockWrite(LocalFile, buffer, bufsize); 
    dwBytesRead := dwBytesRead + bufsize;

    { Show Progress } 
    ProgressBar.Position := Round(dwBytesRead * 100 / fileSize); 
    Form1.Label1.Caption := Format('%s of %s / %d %%',[FmtFileSize(dwBytesRead),FmtFileSize(fileSize) ,ProgressBar.Position]); 
  end;

  CloseFile(LocalFile);

  InternetCloseHandle(hFile); 
  InternetCloseHandle(hFTP); 
  InternetCloseHandle(hNet); 
  Result := True; 
end;

777 - Angel - Love and Fear

777 - Angel Love Courage! 
The numbers 3 and 7 are considered both "perfect numbers" under Hebrew tradition.
777 represents the threefold perfection of theTrinity. 
777 is also found in the title of the book 777 and 
Other Qabalistic Writings of Aleister Crowley pertaining to the law ofthelema.
Courage is Love ! 

3x7x37 = 777

• 7+70+700=777
• 1+2+3+4+56+789−78=777

ANGEL NUMBER 777

Number 777 is a highly spiritual number with the mystical number 7 appearing tripled, making its influences most powerful.  Number 7 resonates with the attributes ofspiritual enlightenment, development and spiritual awakening, persistence of purpose, intuition and the inner voice of wisdom, mysticism, contemplation, knowledge and understanding, discernment and consideration, and good fortune.  


The Angel Number 777 indicates that you have listened to Divine Guidance and are now putting that wisdom to work in your life, and the time has come to reap the rewards for your hard work and efforts.  You are being commended by the angels as your successes are inspiring, helping and teaching others by example.  


Repeating number 777 informs you that you are being congratulated and your efforts have been well noted by the angelic and spiritual realms.  Know that your wishes are coming to fruition in your life as a direct result of your positive efforts and attitude to life.  777 is a very positive sign and means that you should expect miracles to occur in your life.


The 777 repeating number sequence is a message from your angels that you are on the right path and living and serving your Divine life purpose.  The Universe is happy with your progress and due to your positive efforts and hard work you have earned your rewards. The 7777 number sequence is an extremely positive sign and means that you should expect many more miracles to occur for you, both large and small.

What is the Energy of 777?

The energy of 777 is like a big hug from the Universe. It is there to reassure you that we understand your fears and concerns.Your guides are sending you a message that it is okay to let the fear go and release it to your guides and Angels for healing.

Разрешения на полный доступ к файлу (чтение, запись, выполнение) для всех категорий пользователей в файловой системе ОС семействаUnix могут быть записаны как «777» в восьмеричном виде, что соответствует двоичному виду «111111111»

Главная » Блоги » nabel's blog

Смелость жить осознанно

Опубликовано nabel в Чт, 22/08/2013 - 10:13

• Просветление

Безопасность — это по большей части вымысел. Её не существует в природе, и никому не удавалось испытать её в полной мере.
Постоянно избегать опасности в долгосрочной перспективе далеко не безопасней встречи с ней лицом к лицу.
Жизнь - ничто иное, чем дерзкая авантюра.
Готовность к переменам, невзирая на тяжелые обстоятельства, дает нам силу, которую невозможно сокрушить.
Хелен Келлер (Helen Keller)

В нашей повседневной жизни смелости не придаётся большого значения. Смелость ценится у военных, пожарных и политиков. Безопасность – вот что ценится в наши дни. Возможно, вы уже думали, что излишняя храбрость – источник повышенной опасности. Не идите на риск без уважительной причины. Не привлекайте к себе излишнего внимания в общественных местах. Соблюдайте семейные традиции. Не разговаривайте с незнакомыми. Остерегайтесь подозрительных людей. Оставайтесь в безопасности.

Однако переоценка важности личной безопасности имеет побочный эффект – ваша жизнь становится лишь реакцией на внешние воздействия. Вместо того чтобы ставить собственные цели и достигать их, получая удовольствие, вы избегаете любого риска. Продолжаете работать на нелюбимой, но стабильной работе. Продолжаете поддерживать стабильные отношения с людьми, несмотря на давно умерший взаимный интерес. Вы думаете: «Кто я такой, чтобы бороться с системой?» Принимаете свой жребий и стараетесь получше устроиться в имеющихся рамках. Плыть по течению и не раскачивать лодку. Ваша единственная надежда, что река жизни несет вас в правильном направлении.

Без сомнения, в жизни существуют реальные опасности, которых следует избегать. Но есть огромная разница между безрассудством и храбростью. Я не имею в виду храбрость героя, рискующего своей жизнью, чтобы вынести ребенка из горящего здания. Под храбростью я имею в виду способность посмотреть в глаза своим страхам и начать насыщенную и богатую событиями жизнь, в которой вы до этого себе отказывали. Страх неудачи. Страх быть отвергнутым. Страх разорения. Страх одиночества. Страх унижения. Страх публичных выступлений. Страх непонимания со стороны семьи и друзей. Страх физического дискомфорта. Страх сожаления. Страх успеха.

Какие из этих страхов сдерживают вас? А могли бы вы прожить без них? У вас по-прежнему оставались бы разум и здравый смысл, позволяющие избегать реальных опасностей, но без чувства страха, вы бы стали больше рисковать, особенно в ситуациях, не способных причинить вам вреда, даже при наихудшем исходе. Вы бы чаще разговаривали с незнакомцами, больше бы продавали, занялись бы проектами, о которых прежде лишь мечтали. Что если бы вы научились получать удовольствие от вещей, которые сейчас пугают вас? Как изменилась бы ваша жизнь?

Возможно, вы уже убедили себя, что ничего не боитесь… просто существуют веские и объективные причины не делать определенных вещей. Некультурно первым заговаривать с незнакомцами. Не стоит пытаться выступать публично, т.к. вам нечего сказать. Просить о повышении неуместно, поскольку лучше подождать удобного случая. И хотя это всего лишь размышления, подумайте, как изменилась бы ваша жизнь, если бы вы смогли уверенно и смело сделать все эти вещи, не испытывая ни малейшего страха.

http://www.allstevepavlina.ru/courage-to-live-consciously

» 

• nabel's blog
 
• Войдите или зарегистрируйтесь, чтобы получить возможность отправлять комментарии
 
• Страница для печати