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

stepashka_ вы удалили старую инди?

_http://blog.business-net.ru/34.html

 

удалил

 

сделайте все что написона в инструкции,там все правильно сам отуда же делал все пашет...

 

пишу чекер, цикл for to do, как сделать паузу в 2 секунды между запросами ? на примере таймера покажите

 

stepashka_

точно помню возникала ошибка:
[Error] IdURI.pas(93): Undeclared identifier: 'TIdIPVersion'

Решилось так:
* полностью удалил Делф
* при установке отменил установку пакетов инди
* интербазе клиент ставить (вроде без него то-же не хотело)
* ну и по инструкции поставил http://www.indyproject.org/downloads/10/indy10.0.52_source.zip (более новые версии так и не стали)

 

sleep(2000);
приложение будет висеть.. но в то же время работать

 

Чтобы не подвисало использую такой код

Code:

procedure MySleep(millisec : integer);
var i:integer;
begin
  try
   for i:=1 to millisec div 200 do
    begin
     sleep(200);
     Application.ProcessMessages;
    end
  except
  end;
end;

 

Можно ли как-то узнать к какому Begin принадлежит end ,например выделить определенным цветом , а то кода много и очень часто путаюсь.
среда Delphi7.

 

есть несколько пакетов, расширяющих возможности делфи.
Мне нравится CnWizard - бесплатен и реально крут.

 

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

 

Я конечно не в теме, но можно сделать софт в потоке TNewThread

 

Очень важное уточнение - так можно делать только в основном потоке.

 

Ребята, подскажите пожалуйста: как средствами дэлфи подключиться к базе через MYSQL.
Курю целый день, но ворос походу настолько элементарный, что даже в инете не вылаживали...

 

Подскажите плиз, можно ли какнить быстро проверить наличие определенной строки в большом txt файле? щас проверяю загружая сначала в стринглист и дальше if pos(str, list.text), но если файл большой и много потоков, то медленно очень.

 

Попробуй мапить файл примерно так:

Code:

procedure _GetPassICQ(const hFile: THandle);
var
  hFileMap: THandle;
  lpMemory: Pointer;
  szFile: DWORD;
  i, szFind: DWORD;
const
  lpFindStr: String = 'string';
begin
  if hFile <> INVALID_HANDLE_VALUE then try
    szFile:= GetszFile(hFile, nil);
    hFileMap:= CreateFileMappingA(hFile, nil, PAGE_READWRITE , 0, szFile, nil);
    if hFileMap <> INVALID_HANDLE_VALUE then try

      lpMemory:= MapViewOfFile(hFileMap, FILE_MAP_ALL_ACCESS, 0, 0, szFile);
      if lpMemory <> nil then try
      
        szFind:= Length(lpFindStr);
        for i:= 0 to szFile - szFind do begin
          if CompareMemory(pointer(dword(lpMemory) + i), @lpFindStr[1], szFind) then begin
            // ..............
            // Если найдено
            // ..............
            break;
          end;
        end;        
      finally
        UnmapViewOfFile(lpMemory);
      end;      
    finally
      CloseHandle(hFileMap);
    end;
  finally
    CloseHandle(hFile);
  end;
end;

 

Вохможно ли с помощью Delphi узнать название активной конференции Skype ?

 

Как авторизироваться в роутере с помощью Post, и после получить нужные данные с помощью Get запроса? тип такого:

 

idsmtp+idIdSSLIOHandlerSocketOpenSS L+idsocksinfo

Всем здравствуйте,
Отправляю почту через связку idsmtp+idIdSSLIOHandlerSocketOpenSS L
через сервера aol.com, hotmail.com, yahoo.com
добавляю отправку через socks сервера, путем добавления компонента idsocksinfo, в нем прописываю адрес и порт socks сервера. - в итоге через yahoo.com отправка продолжает работать, а вот через aol и hotmail перестает работать. например в aol сообщает следующее "554 AOL will not accept delivery of this message"
Кто нибудь подскажет с чем это может быть связано???
заранее благодарен

 

Похоже что сокс в бане... попробуй поставить у себя к примеру ccproxy и тестить на своем соксе

 

Копать в сторону "отслеживание окон в Делфи"

var
h,n: HWND;
begin
h := findwindow(nil, 'Skype'); //нашли хендл скайпа
n := FindWindowEx(h,0,'класс активной конференции','ее название');
// и т.п. , писать на примере конкретного приложение - то же самое что написать все за тебя =)