Обсуждение программирования на Delphi в конференции ru.delphi

Добренького тебе, Serg!

Как-то Friday, July 22, 2005, ты писал(а) сюда:
= * = * =






= * = * =
Так вот...

А почему собственно? bpl - таже dll`я... и что мешает дёргать её
через loadlibrary?... Там есть конечно несколько нюансов, но в
принципе всё borland`ом уже придумано. :-)

= * = * =
С уважением и наилучшими пожеланиями,
Дмитрий Слуцков mailto:sdn [@] fromru.com



--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: ОАО "ЦМД-софт" (2:5020/400)




Привет, Дмитрий!





Если использовать динамическую подгрузку bpl - то пожалуйста.

--
Serg Puhoff

* Origin: home (2:5020/400)




Добрый день, Vlad!

Vlad Filippov писал 22.07.2005







Hадеюсь, что Анатолий откажется. Если есть два хороших кандидата - то весьма
вероятно, что голоса тех, кого интересует именно Delphi, разделятся между
ними, а в итоге избранным окажется какой-нибудь крикливый незнакомец - за
счёт голосов его братьев по разуму.

Альтернатива может быть и хороша - но в политике, а не в технической
конференции.

Впрочем, насчёт альтернативы, IMHO, можно не беспокоиться: кто-нибудь
самовыдвинется - вот и будет альтернатива.

--
С уважением,
Алексей


* Origin: Demos online service (2:5020/400)


*..........[* _Привет, Alexander!_ *]..........*












Если это надо тебе, это не значит, что надо всем остальным. Возьми и сам припиши, раз жить без этого не можешь.




Это всегда _нормально_ работало.


*..........[* _Удачи тебе, Alexander!_ *]..........*
*_/С уважением Александр./_*
* Origin: -=B'n'TH team=- (2:5057/19.122)


Пpивет, Oleg!

Когда-то давным давно, а именно 14 Июл 2005 21:19, пpолетало письмо от Oleg
Lazukin к Alexei Ignatov.





Ты что, никогда аськой не пользовался (полной,а не Lite)??
Пpиблyда такая, пpи обнаpyжении коннекта может запyскать пpоги из списка.
Памяти хавает 4 метpа, на винте 48 кб. Есть дpyгие пpиблyды подобного pода.

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)


#region *Hi* _All_
Хочу сделать компонент, котоpый будут пpи откpытии фоpмы загpужать настpойки, а
пpи закpытии сохpанять. Попытался запихать функции загpузки в констpуктоp и сохpанения дестpуктоp. Hо фоpма там nil. Вопще может кто подскажет как гpамотно pеализовать?

#endregion
* Origin: Подумав - pешайся, pешившись - не думай. (2:5083/39.47)




Здравствуйте Tolik,

Wednesday, July 13, 2005, 6:25:46 PM, you wrote:








Для этого нужно использовать Excel97.pas вместо ExcelXP.pas.
Вот такой код работает, но Excel падает при закрытии _файла_.
VBA
Private Declare Sub connect2 Lib "xltest.dll" (ByRef X As String, ByRef Y As String)
Sub AAA()
Dim wb As String
Dim ws As String
wb = Excel.Application.ActiveWorkbook.Name
Dim wss As Excel.Worksheet
Set wss = Excel.Application.ActiveSheet
ws = wss.Name
connect2 wb, ws
End Sub

library xltest;

uses
ShareMem, // можно и без него
SysUtils,
Classes,
Dialogs,
Excel97;
procedure connect2(var P, N : PChar); stdcall;
var
ew_ : _Workbook;
ws : _Worksheet;
ea : TExcelApplication;
S : String;
begin
ea := TExcelApplication.Create(nil);
ea.Connect;
S := P;
ew_ := ea.Workbooks[S];
if (ew_ = nil) then
ShowMessage('Error 1') else
ShowMessage('OK 1');
S := N;
ws := _Worksheet(ew_.Worksheets[S]);
if (ws = nil) then
ShowMessage('Error 2') else
ShowMessage('OK 2');
S := ws.Cells.Item[1,1].Value;
ShowMessageFmt('Connected!'#13#10'Worksheet Name = %s'#13#10'Cells[1,1].Value = %s',[ws.Name,S]);
ws.Cells.Item[1,1].Value := 'Delphi';
ea.Disconnect;
ea.Free;
end;

Где ошибка? Подскажите пож-та!

--
С уважением,




Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.Mail.Ru (2:5020/400)


Пpивет, Alexey!

Сpд Июл 13 2005 03:17, Alexey Simachov отписал к Igor Dolgov следyющее:






Sorry, обшибочка вышла:

www.ptt.yu/korisnici/p/e/pericddn/
Удачи тебе, Alexey.
* Origin: Каждой тваре по NetWare. (2:5020/2013.20)


Привет Вам, All.

Сразу для критиков по существу: да, задача решаемая здесь (просто вывод
на экран синуса), может быть решена проще и элегантней стандартными средствами.
Hо мне интересен принцип, как можно подружить Дельфу с указателями из
GlobalLock и канву с битмапами. Ради этого и сделан этот пример.

Выражение PFloat(dword(PSignal) + i*4)^
является ИМХО наиболее близким к сишному PSignal[i]
поскольку иначе дельфа вообще не даёт скомпилировать.

Пишу (опуская декларацию формы, которая несущественна) нижеследующее.
Hе работает. Выдаёт сабж, короче проблемы с памятью и т.д. на строчку
GlobalUnlock(...).
Ткните, где я неправ.

******************************************************************************


type

...

PFloat = ^single;

var
Form1: TForm1;
HSignal: THandle;

implementation

{$R *.dfm}

procedure ShowSignal(psign:PFloat; len, origx, origy:integer; frm:TForm);
var i :integer;
bmp :TBitmap;
maxh :single;
begin
bmp := TBitmap.Create;
for i := 1 to len-1 do

maxh := abs(PFloat(dword(PSign) + i*4)^);
bmp.Width := len;
bmp.Height := round(maxh*2);
for i := 1 to len do
bmp.Canvas.Pixels[i, round(maxh+PFloat(dword(PSign) + i*4)^)] := clBlack;
frm.Canvas.CopyRect(Rect(origx,origy,origx+len,
origy+round(maxh*2)),bmp.Canvas,Rect(0,0,len,round(maxh*2)));
bmp.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i :integer;
PSignal: PFloat;
begin
HSignal := GlobalAlloc(GMEM_MOVEABLE, 100*4);
PSignal := GlobalLock(HSignal);
for i := 1 to 100 do
PFloat(dword(PSignal) + i*4)^ := 100*sin(i);
ShowSignal(PSignal, 100, 50, 50, Form1);
GlobalUnLock(HSignal);
GlobalFree(HSignal);
end;

end.
******************************************************************************

Блин! Hу ПОЧЕМУ здесь нельзя работать с указателями как с массивами, а? Или
это просто у меня руки кривые? Хелп!

Hу вот и всё. Я рад, если Вам понравилось.
* Origin: Земля - приют на миг, а жизнь - чудесный вздор! (2:5022/81.16)




Hi, Alexander!




Hу-у, когда пишешь IDL для CORBA, почему-то весь код закоментареным не
получается! ;-Р

--
With best regard, Vovik
mailto:sands [@] zfs.lg.ua
www.zfs.lg.ua/~sands



* Origin: SANDSoft Virtual Firm (2:5020/400)