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

Неужели так трудно давать нормальные имена???

 

Здравствуйте, такой вопрос:
Пишу прогу на WinAPI нужно в WinProc отлавливать, когда контрол Edit получает и теряет фокус, как правильно это сделать?

 

Причем тут 3-и и более картинок? Игн гужна свящь этой капчи и по нажатию обновлени из.. не рабртает выше описаное для моего сервисаю

 

Что не работает, где не работает? Пиши подробнее с примерами кода.

 

Вы напишите что именно вам надо и как. Есть ли какие наброски?

 

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

 

Ребят помогите что-нибудь решить из нижеперечисленных задач:

1. Найти радиус окружности R, вписанной в прямоугольный треугольник с катетами a и b (R = 0,5868 дм2 при a=1 дм, b=2 дм).

2.Найти площадь S полной поверхности правильной четырехугольной пирамиды с высотой h и площадью боковой поверхности S (a=2 м при h=1,4142 м и S=6,928 м2 ).

Составить алгоритм и программу для численной проверки правильности разложения в ряд заданных функций, для чего вычислить ее значения и значения соответствующего ряда в не менее, чем трех точках. Обеспечить точность вычислений не менее 10-5 :




-1<x<1


Составить алгоритм и программу:

 

Скомпилировать не пробовал?

 

в этой среде общения я так понял что нету авторегеров Вопрос актуален.

 

регер с исходным кодом

 

битый сорс

 

как исходник может быть битым)))

 

Может ты хотел сказать, что ссылка битая?

 

да ссылка не битая, у него наверное какого-нибудь компонента нет и по этому проект не компилируется.

 

хеелп,
если делаю так: res := lineForward(oline, -1, 0, lf, 0, @hConsultCall, nil);

ошибка 0х80000011 - неверный адрес айди

если так:
res := lineForward(oline, 0, 0, lf, 0, @hConsultCall, nil);
- ошибка 0х80000048 - операция не удалась

в чем ошибка?

 

Получил с помощью WinSock страницу гугла, пробую ее перевести из utf-8 в ansi, но функция utf8toansi() возвращает пустой результат

 

2tinyM не скупись, побольше кода выложи. телепаты в отпусках =)

 

2НTL попробуй передавать в PChar ... Utf8ToAnsi(PChar(MyString))

 

HTL, forum.sources.ru/index.php?showtopic=246592

 

Проблема, надо отправить через UDP отправить "FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69 6E 65 20 51 75 65 72 79 00"

Делаю так:

Code:

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils,winsock;

var data:wsadata;
  sock:integer;
  buf:string;
  addr:sockaddr_in;


begin
  try
  readln;
  wsastartup($101,data);
  sock:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
  buf:=#$FF#$FF#$FF#$FF#$54#$53#$6F#$75#$72#$63#$65#$20#$45#$6E#$67#$69#$6E#$65#$20#$51#$75#$65#$72#$79#$00;
  addr.sin_family:=AF_INET;
  addr.sin_port:=htons(27015);
  addr.sin_addr.S_addr:=inet_addr('127.0.0.1');
  sendto(sock,buf,length(buf),0,addr,sizeof(addr));
  readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Но когда снифаю пакет программой WPE Pro, получаю
'A4 DA 30 01 02 00 69 87 7F 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00'

Что может быть не так? Использую Delphi 2009