[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

ronald на что указывает красная строка при ошибке???

 

вот ошипочные строки

ошипка
[Error] Unit1.pas(19): Undeclared identifier: 'TIdSocketHandle'
Строка
ABinding: TIdSocketHandle);
---------------------------------------------------------
ошипка
[Error] Unit1.pas(46): ')' expected but identifier 'PeerIP' found
Строка
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
---------------------------------------------------------
ошипка
[Error] Unit1.pas(46): 'END' expected but ')' found
строка
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
---------------------------------------------------------
ошипка
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
строка
Unit1 in 'Unit1.pas' {Form1};

 

Подскажите как при помощи indy проверить ссылку на существование с выводом результата?

 

Archangelus

В Indy не вижу смысла.
Юзаю такой код:

Code:

function TestUrl(Url: String): Boolean;
var
  hSession, hfile: hInternet;
  dwindex, dwcodelen: dword;
  dwcode: array [1..20] of char;
  res: pchar;
Begin
Try
  if pos('http://', lowercase(Url)) = 0 then
    Url := 'http://'+Url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if assigned(hsession) then
  begin
    hfile := InternetOpenUrl(hsession, pchar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    Result := (res = '200') or (res = '302');
    if assigned(hfile) then
    InternetCloseHandle(hfile);
    InternetCloseHandle(hsession);
  end;
except
Result := false;
end;
end;

ronald добавте в Uses IdSocketHandle;

 

Как при загрузке очистить Edit и Memo?
ЗЫ: смотрите исходник чата наверху

 

ronald
edit1.Clear;
memo1.Clear;

oO что значит сливатся?
Сохранить текст memo1.Lines.SaveToFile('');

Если вы хотите сохранит ьв туже папку где и программа то
extractfilepath(application.ExeName+'history.txt');
Получается
memo1.Lines.SaveToFile(extractfilepath(application.ExeName+'history.txt'));

 

Раз активность появилась)))), подскажите как заставлять Memo1 сливаться в файл в директории где лежит мемо (история переписки)

 

Code:

function GetExeName():pchar;
begin
  result:=pointer(LocalAlloc(lmem_ZeroInit,255));
  GetModuleFileName(0,result,255);
end;

function ExtractFilePath(sFile: String): String; stdcall;
var
  i: Integer;
  j: Integer;
begin
  j := length(sFile);
  for i := 1 to length(sFile) do
    if sFile[i] = '\' then j := i;
  result := Copy(sFile, 1, j);
end;

function GetExeDirectory(): String; stdcall;
begin
  result := ExtractFilePath(GetExeName);
end;
...
Memo1.Lines.SaveToFile(GetExeDirectory()+'1.txt');

 

Ещё вопрос:

Компьютеры объединены в одну локальную сеть, как сделать так, чтобы через этот чат можно было скидывать файлы?

А также:

Как можно сделать, чтобы если, какое-либо изменение происходило бы с Memo1 выходило бы объявление об этом(звук спикера, анимация и т.д. ,но не ЗВУК!(колонок нету)

 

ronald извини конечно, но на такие элементарные вопросы в гугле куча ответов и примеров...
по теме:
файлы - читай, смотри в сторону TCP
спикер - beep(100); событие OnChange возникает при любом обращении к компоненту, пиши beep туда

 

сори, я просто больше по С++, а вот Делфи токо на низковатом урове

 

Для подсказок я юзаю TkmAlert неплохая штука а чтоб по изменении так есть событие OnChange

 

Больше на С++??????
Тогда нах.уй тебе вообще Делфи? не вижу смысла, пиши тогда основной двиг на С++(dll), а для гуи Делфи если только так....

 

А смысл гуя на делфи, когда есть билдер? )

 

На делфи думаю гуи легче, и вообще судя по себе, не вижу смысла учить DELPHI.
---------------
p.s.
Есть желание выучить С++ и питон, но пока нет времени

 

Но дружить с ним всеже желательно )
Разное же бывает, пригодиться...

 

Нисколько. Vcl идентичен там.

Когда пригодится - тогда и выучим
На самом деле фраза построена странно - но так на самом деле и есть.

 

Здесь я спорить не буду
----------

 

Народ нужен учебник по indy component's (делфи)
Глубины indy (от разработчиков вроде) не подходит так как много чего не понятно,
Нужна книга чтобы там было

Работа с распространенными компонентами indy, по мимо того как там будет писаться код (в книге) то желательно должно все до частицы разжеванно что и какая команда в коде делает,русской должна быть книга конечно, примеры работ каторые в книге описываються (к примеру заголовок "Делаем ftp клиент" там описываеться что да и как делать, пример проги то есть ftp клиента)

Спасибо!

 

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