Пишу *.dll помогите с методами

[mdbm]

Добрый день.
Я начинающий дельфист.
Владею лишь языком программирования 1С.
Мне необходимо написать библиотеку dll со следующими методами:

ЗагрузитьКартинку(Каталог,ИмяФайла) ; // загружает картинку (карта города)

НарисоватьКружокНаКартинке(Х,У,Ради ус); //рисует на загруженной картинке кружок.

СохранитьФрагмент(Х,У,Ширина,Высота ,Каталог,ИмяФайла); //сохраняет фрагмент загруженной картинки в каталог



Принцип работы с данной библиотекой будет такой:
В среде 1С я создаю объект("моя_библиотека.dll")
И начинаю использовать его методы.

1. С помощью метода ЗагрузитьКартинку , я подгружаю картинку в память
2. Рисую на картинке кружок(при необходимости несколько)
3. Сохраняю фрагмент в каталоге.

Загружаю этот фрагмент из каталога в программу 1С


И вот. Решил написать руками на Дельфи 7
И вообще давно уже хотел изучить этот язык
Но чтобы начать...

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

На текущий момент я уже написал скелет библиотеки. (по туторам)
С одним методом ПолучитьХендлГлавногоОкна1С()
Все вроде работает....

Нужна реализация трёх ,указанных выше методов.

С уважением....

[mutabor]

Что то я не совсем понял насчет получения хэндла 1С окна. Дайте код посмотреть, а там уже может и посоветуем что-то.

Вроде понял что вам надо, DLL ничего не передает в 1C? Только параметры получает и с файлами работает? Тогда вот направление куда копать:

TBitmap - объект Дельфи содержащий битмап (если карта в bmp)
TJpegImage - объект Дельфи для Jpeg (если карта в Jpeg)
TCanvas - канва, холст, объект на котором происходит рисование (есть у TBitmap)
Canvas.Ellipse - метод канвы, рисует эллипс
Canvas.CopyRect - метод канвы, копирует ее часть на другую канву
LoadFromFile - метод, загрузка из файла (есть и у TBitmap и у TJpegImage)
SaveToFile - метод, сохранение в файл (есть и у TBitmap и у TJpegImage)

[mdbm]

Вообщем написал код
Скомпилировал
Вопрос про этот фрагмент:

procedure TMain.LoadBitmap(AFileName: PChar);

Мне посоветовали использовать :PChar вместо :String
Я так и сделал...
В результате при попытке использовать dll в программе 1С
при запуске LoadBitmap(ЗдесьПутьККартинке_bmp)
Выскакивает сообщение Плохой тип переменной

[D-mon]

LoadBitmap(PChar(ЗдесьПутьККартинке _bmp))

[mdbm]

Вот фрагмент процедуры

procedure TMain.LoadBitmap(AFileName: PChar);
begin
  If Not Assigned(Image) Then Image := TBitmap.Create;
  Try
    Image.LoadFromFile(AFileName);
  Except
    FreeAndNil(Image);
    Raise;
  End;
end;

[mdbm]

Ура !!!
Получилось...

procedure TMain.BitmapLoad(var AFileName: OleVariant);

Вместо PChar я использовал OleVariant

[mdbm]

Вопрос:
При обрезании карты города , полученный фрагмент получается немного сплющенным

procedure TMain.BitmapSavePart(var X, Y, W, H: Integer;
 var AFileName: OleVariant);
var
 Buf : TBitmap;
begin
 Buf := TBitmap.Create;
 Try
   Buf.PixelFormat := pf24Bit;
   Buf.Width := W;
   Buf.Height := H;
   Buf.Canvas.CopyRect(Rect(0,0,W,H),Image.Canvas,Rect(x,y,x+W,y+W));
   Buf.SaveToFile(AFileName);
 Finally
   Buf.Free;
 End;
end;

Я так понял, это связано с разрешением
Оригинал карты города имеет разрешение 95,98 точек на дюйм
А обрезанный фрагмент имеет разрешение 96 точек на дюйм

Как это отрегулировать внутри процедуры ?

[alexBlack]

Скорее это происходит из-за того, что у Вас области разных размеров:

Buf.Canvas.CopyRect(Rect(0,0,W,H),Image.Canvas,Rect(x,y,x+W,y+W));

[mdbm]

))) спасибо

[mdbm]

Делаю окно сообщения, которое будет всплывать в месте клика мышкой.
Организовал процедуру , вызывающую появление формы на экране.
Вопросы:

1. Как сделать, чтоб форма была голой, т.е. без верхней синей полоски.

2. Как сделать, чтоб окно формы, было поверх всех окон в 1С ?