[остался в живых]

всем доброго времени суток! столкнулся с одной проблемой с сокетами в windows 7. программа загружает файл на сервер. для этого использую TClientSocket. размер файла может быть большой, поэтому загрузку делаю в цикле: читаю из файла блоками по 64к и посылаю в сокет FClientSocket.Socket.SendBuf(Buf, Count); после отправки очередного блока инкрементирую прогрессбар для отображения процесса загрузки. на xp все работает нормально - прогресс бар движется постепенно. но эта же программа на 7 работает по-другому: выгрузка из нее происходит моментально, прогрессбар движется очень быстро до 100%, буквально за доли секунды. ответа от сервера, после отправки последнего пакета, приходится ждать очень долго, ведь реально файл не весь "ушел" на сервер. это можно увидеть в любом сетевом мониторе, dumeter к примеру - отправка идет. т.е. из программы весь файл уже как бы выгружен, но на сервер то он не весь загрузился за эти доли секунды - upstream интернета маленький. как бы в программе узнать, что очередной пакет реально выгружен? через GetTickCount замерял время выполнения Socket.SendBuf(Buf, Count); на xp и 7. на xp оно > 0. на windows 7 = 0.

[Nayan]

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

Код:

procedure TMainForm.PatientBtnClick(Sender: TObject);
var
  tCur: TPoint;
begin
  mId := mPatientId;
  GetCursorPos(tCur);
{  PatientMenu.Popup(tCur.X - 100, tCur.Y - 50);}
  PatientMenu.Popup(left+width-patientbtn.width-135, top+patientbtn.Top+40);
end;

Данный код работает на моем рабочем компе, на компе коллеги и даже на 15" домашнем монике. Но при переносе на ноутбук меню выскакивает не там где нужно.
Должно работать при любом разрешении. Координаты у меня слишком абсолютные?
Через tCur не предлагать.

[lxa85]

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

[Nayan]

да, у кнопки есть координаты относительно формы(или другого родителя). У меня она лежит на панели. Эмпирически я подобрал нужные координаты, но при переносе на ноут. сдвигается.

[lxa85]

Эмпирически я подобрал нужные координаты, но при переносе на ноут. сдвигается. »

что сдвигается? Пиши мысль полностью.

[Nayan]

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

[кастелянша]

всем привет, имеется самоляпная база данных, так вот, в Delphi я не бум-бум, а нужно внести пару человек в раскрывающийся список . В папке (и подпапках) с базой просмотрел все файлы (которые смог открыть с помощью Delphi ), но существующих фамилий там не нашел, только таблицы, где что расположено и коды соответственно. Блин подскажите пожалуйста в каком файле они могут сидеть, хоть расширение или куда их обычно засовывают или ешо што...заранее благодарен. Если считаете что 100% сам не справлюсь без знаний Delphi, то тоже скажите... Буду дальше думать

[lxa85]

кастелянша, ты скажи толком, что у тебя есть.
База - это база. Интерфейс к базе - это интерфейс к базе.
Что ты можешь открыть в делфи? Исходные коды есть? Или есть только скомпилированный файл для работы с базой?
Если вообще караул, то приводи скриншоты, будем ориентироваться.

[кастелянша]

ты скажи толком, что у тебя есть. База - это база. Интерфейс к базе - это интерфейс к базе. Что ты можешь открыть в делфи? Исходные коды есть? Или есть только скомпилированный файл для работы с базой? Если вообще караул, то приводи скриншоты, будем ориентироваться. »

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

Вобщем вот скрины, можт поймете что-нибудь:

1) папка с базой

2)сама таблица, где собсна и нада добавить.

[LilLoco]

1) папка с базой »

Ни одного файла связанного с базой, я там не заметил!Только если в *.txt что то хранится! Либо база где - нибудь на сервере!

сама таблица, где собсна и нада добавить »

В папке есть исходники, в них нужно посмотреть откуда берется список людей, и его уже менять!