Delphi Support

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

 

А прописываешь так же как и в моем уроке по установке Synapse.

 

угу

 

Все ясно, спасибо). Зеленые будут, не забуду...

 

Ыыы, привет всем.

Установил Synaps и решил опробывать его, набросал : memo, label, buttion (все стандартно).

И, суда

Код:

 

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, [COLOR="#FF0000"]httpsend[/COLOR];

вписываю "httpsend" отметил красным, ошибок нету, перепроверял, но когда запускаешь прогу, перекидывает во вкладку synautil и выдает ошибку какую то :

Код:

  Value := ReplaceString(Value, ':', TimeSeparator);

//Обзац кода :

Код:

{==============================================================================}

function GetTimeFromStr(Value: string): TDateTime;
var
  x: integer;
begin
  x := rpos(':', Value);
  if (x > 0) and ((Length(Value) - x) > 2) then
    Value := Copy(Value, 1, x + 2);
[COLOR="#FF0000"]  Value := ReplaceString(Value, ':', TimeSeparator);[/COLOR]
  Result := -1;
  try
    Result := StrToTime(Value);
  except
    on Exception do ;
  end;
end;

{==============================================================================}

В чем ошибка?


PS Я то думаю что не так, почему сообщения нет в этой теме, оказываеться не ту тему написал. :D за место Delphi Support написал в C# and vb.net :D

 

Привет, попробуй заменить на это

Код:

{==============================================================================}

function GetTimeFromStr(Value: string): TDateTime;
var
x: integer;
FS: TFormatSettings;
begin
FS := TFormatSettings.Create;

x := rpos(':', Value);
if (x > 0) and ((Length(Value) - x) > 2) then
Value := Copy(Value, 1, x + 2);
Value := ReplaceString(Value, ':', FS.TimeSeparator);
Result := -1;
try
Result := StrToTime(Value);
except
on Exception do ;
end;

end;

{==============================================================================}

или так http://youhack.co/showthread.php?t=336524

 

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

 

Мне замена помогла). Ну там не большая разница)

 

Сделал как сказал Alex Ey, компилируешь программу, а тут бац Error, самое главное ни какую ошибку не показывает :(

Сейчас, переустановлю Delphi (Опять). Попробую установить synapse, и как Вы сказали сделаю. МБ получиться :)

 

Здрастите) Посоветуйте с чего начать писать на дельфи? я бы почитал, но там так много лишней информации. Мне нужно только то что связанно с брутом\чеком\парсом. зарание спасибо и + сиками, конечно, порадую :)

 

сразу ты с этого начать не сможешь, учи самое основное, потом уже потихоньку переходи к отправкам запросов и прочего

 

всем привет ребят можете подсказать на каком языке писать программу? пробывал на паскале все сделал как надо ,но почему то иногда выдает ошибки)))

 

А как можно прочитать текст в скачанной веб-странице?
Там написано что-то типа: да, 123.123.132.231