Курский Форум

FORTIS.EGO!ST писал(а):Как сделать…

по удаленному дотупу к реестру

Ushk@ писал(а):ты еще скажи без ведома юзера

IDen писал(а):Так а по поводу ICQ и Delphi у тебя ничего нет ?

Ted писал(а):

IDen писал(а):Так а по поводу ICQ и Delphi у тебя ничего нет ?

есть готовая компонента в которой реализовал 7 ой протокол) могу скинуть

а коменты щас добавлю смотреть выше)

Alex ilmarranen писал(а):Какъ поменять аттрибуты создваемыхъ файловъ?

Народ, подскажите плиз, как поставить картинку, например 'pic1.bmp', как фоновый рисунок.

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

Alex ilmarranen писал(а):2Anri ИмееЦо ввиду распознавание картинокъ, текстъ на которыхъ при отправке смсъ требуютъ на сайтахъ Билайна и МТС…

Alex ilmarranen писал(а):2CY Хоть хто-та миня понимаетъ… Риспектъ чувакъ… ))) А то я тутъ программерамъ объяснял-объяснялъ про Object Pascal они таГъ и не поняли… ))

Alex ilmarranen писал(а):2Sir. Milton для начала куда?

ЗначеТъ такъ…

ИмееЦо стандартная процедура(для нетипизированныхъ файловъ) BlockRead(F,Buf,SizeBuf)… Где вроде бы всё понятно… Да вотъ только минимальный размер SizeBuf = word, то есь 4 байта… А нуно побайтно… Чё делать…? Нетипизированные файлы … Причёмъ структура файла неизвестна… точнее произвольна… Т.к. задавалась не мной…

Help!

Нетипизированные файлы - это принципиально

Alex ilmarranen писал(а):2DimMan Не понелъ.. Почему типизированный?

Alex ilmarranen писал(а):2DimMan Не понелъ.. Почему типизированный?

DimMan писал(а):кстати код лучше обрамлять тегами code для удобочитаемости
и чтоб движок форума не съел нужный кусок текста

Alex ilmarranen писал(а):2DimMan Не понелъ.. Почему типизированный?

ща Д поставлю с примером объясню

Код: Выделить всё

var
   Data: word;
   DataAsFourBytes: array[1..4] of byte absolute Data;


file of char типа что ли

А не посадют? Или у тя купленная?

DimMan писал(а):

file of char типа что ли

именно, правда скорость чтения пропорционально упадет
зато самый простой способ читать побайтно

DimMan писал(а):

file of char типа что ли

А не посадют? Или у тя купленная?

TURBO DELPHI

триальная

Alex ilmarranen писал(а):Ога… спасибо… ))


Слушайте… я чёта туплю….
Дайте алгоритм перевода изъ двоичной системы въ десятичную…

Alex ilmarranen писал(а):Дайте алгоритм перевода изъ двоичной системы въ десятичную…

CY писал(а):читайте МСДН, дельфятники.

FailSafe писал(а):Требует MS Visual Studio Express - подскажите где его взять, тк ссылка labs.msdn.microsoft/express не пашет

Alex ilmarranen писал(а):Вопросъ следующий… Какъ сделать диалогъ, который указываетъ именно путь къ дирректории а не файлу…

Как использовать Shell API SHBrowseForFolder

Как использовать функцию Shell API SHBrowseForFolder чтобы позволить пользователю выбрать каталог?

Код: Выделить всё

uses ShellAPI, ShlObj;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
 TitleName: string;
 lpItemID: PItemIDList;
 BrowseInfo: TBrowseInfo;
 DisplayName: array[0..MAX_PATH] of char;
 TempPath: array[0..MAX_PATH] of char;
 begin
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 BrowseInfo.hwndOwner := Form1.Handle;
 BrowseInfo.pszDisplayName := @DisplayName;
 TitleName := 'Please specify a directory';
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then
 begin
  SHGetPathFromIDList(lpItemID, TempPath);
  ShowMessage(TempPath);
  GlobalFreePtr(lpItemID);
 end;
 end;


Alex ilmarranen писал(а):Вопросъ следующий… Какъ сделать диалогъ, который указываетъ именно путь къ дирректории а не файлу…

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var Choose: string;
begin
SelectDirectory('Выберите каталог', 'C:', Choose);
end;

Vcl50.bpl не былъ найденъ

Ещё вопросъ… Работа съ мелкомягкимъ экселемъ…

мисс_граффити писал(а):это библиотека… при компиляции приложения в старой версии надо было указать, чтобы она включилась в пакет.
Могу тебе его скинуть, но не уверена, что спасет ситуацию (весит примерно 2 метра).

мисс_граффити писал(а):а ты с ним как работаешь-то? OLE или используешь компонентики типа WorkBook/WorkSheet? Как открываешь, устанавливаешься связь?… В общем, код - в студию.

Код: Выделить всё

Excel1 := CreateOleObject('Excel.Application');
  Excel1.Visible := True;
  Excel1.WorkBooks.Add;

Excel1.WorkSheets[1].Cells[Excel1.Sheets[1].Rows.Count,Excel1.Sheets[1].Columns.Count].Activate;

Код: Выделить всё

Excel1.WorkSheets[1].Cells.SpecialCells(11).Activate;

Alex ilmarranen писал(а):гипотетическимъ цикломъ форма … Но я чайникъ не знаю даже какъ её решить…

Alex ilmarranen писал(а):форма сама по себе призаковъ жизни не подаётъ…

Alex ilmarranen писал(а):и тотъ же label не обновляетъ…

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
begin
while true do
  begin
  a:=random(10);
  Label1.Caption:=IntToStr(a);
  Form1.Refresh;
  end;
end;

Alex ilmarranen писал(а):Ха-ха-ха… О процедуре .Refresh не зналъ… Векъ живи векъ учись… )) Спасибо…

Код: Выделить всё

procedure JobMas;
var
j,i:integer;
B:real;
begin
     for j:=0 to TableColCount-1 do
         for i:= 0 to TableRowCount-1 do
             begin
                  if M[i,j]<MaxM[j] then
                     begin
                          M[i,j]:=Int((M[i,j]-MinM[j])/IndexM[j]+0.5+1);
                     end
                  else M[i,j]:=PartCount;
             end;
end;

Код: Выделить всё

procedure JobMas;
var
j,i:integer;
B:real;
begin
     for j:=0 to TableColCount-1 do
         for i:= 0 to TableRowCount-1 do
             begin
                  if M[i,j]<MaxM[j] then
                     begin
                          B:=(M[i,j]-MinM[j])/IndexM[j]+0.5+1;
                          M[i,j]:=Int(B);
                     end
                  else M[i,j]:=PartCount;
             end;
end;

Alex ilmarranen писал(а):

Код: Выделить всё

M[i,j]

Код: Выделить всё

function Int(const X: Extended): Extended;
asm
        FLD     X
        SUB     ESP,4
        FNSTCW  [ESP].Word     // save
        FNSTCW  [ESP+2].Word   // scratch
        FWAIT
        OR      [ESP+2].Word, 0F00  // trunc toward zero, full precision
        FLDCW   [ESP+2].Word
        FRNDINT
        FWAIT
        FLDCW   [ESP].Word
        ADD     ESP,4
end;

Код: Выделить всё

type
    DMasType=array of array of real;
    ColIndexMas=array of real;

Код: Выделить всё

var
   M: DMasType;
   IndexM:ColIndexMas;

Alex ilmarranen писал(а): Тогда какъ въ языке нетъ функции, округляющей по этому правилу…

Alex ilmarranen писал(а):Назовёмъ это функцией Окр(X)… Т.е.
Окр(3.2)=3
Окр(3.8)=4
Окр(3.5)=4

Alex ilmarranen писал(а):Назовёмъ это функцией Окр(X)… Т.е.
Окр(X.2)=X
Окр(X.8)=X+1
Окр(X.5)=X+1

Wizard for Kursk писал(а):Кто нибуть знает функцию перевода числа из 10-ой в 2-ую систему исчесления в Паскале или Delphi?

Код: Выделить всё

function FromDec(n, radix:longint):string;
var
    s: String;
const
    digit: string[16]='0123456789ABCDEF';
begin
    s:='';
    repeat
        s:=digit[(n mod radix)+1]+s;
        n:=n div radix;
    until n=0;
    FromDec:=s;
end;

Alex ilmarranen писал(а):Найдите 10 отличий… И скажите почему при определённых обстоятельствахъ результатъ разный… Йафшоки…

larboss писал(а):Как создать ICQ-клиент? Необходимо очень…

BeteTest писал(а):Найди компонент TICQClient

snb писал(а):Анри, не, у меня только VS микрософтовская.
Ну а Дельфи же вроде сейчас вся из себя дотнетовская, так какая разница, на чем писать? Я с XML много работаю на .NET, что именно тебя интересует?

Alex ilmarranen писал(а):Я съ xml ничего не делалъ…

http://www.com/denet.ru/progr/delphi/stat/Using-XML/

Alex ilmarranen писал(а):Я съ xml ничего не делалъ…

http://www.com/denet.ru/progr/delphi/stat/Using-XML/

Anri писал(а):проектик на старой дельфе к такому же принцепу

snb писал(а):

Alex ilmarranen писал(а):Я съ xml ничего не делалъ…

http://www.com/denet.ru/progr/delphi/stat/Using-XML/

COM, говоришь… ну его в попу…
Так я не понял, если Дельфи поддерживает .NET FrameWork, то можно использовать System.Xml, и там все радости будут.

snb писал(а):Может она работает с .NET через врапперы, например TXMLDocument и тому подобные?

Anri писал(а):CodeGear RAD Studio

Открыл C++ Builder, те же ощущения . Хоть бери и переноси всё в .net на c#

BeteTest писал(а):после продаже IDE кодгиру нововедений столь заметных в редаторе нет, Визуалка впереди на много шагов.

Вообще-то CodeGear - это было подразделение Borland, которое как раз было выделено специально для работ над средствами разработки приложений и уже потом проданное Embarcadero… Так, просто к слову