NLDelphi

flexibele interface voor griddata

EricLang — Thu, 17 May 2012 20:20:53 GMT

Beste heren (zijn er nog dames hier eigenlijk?),
Een ontwerp-probleem.

De basische datainterface die aan mijn grid gelinkt kan worden ziet er zo uit:

delphi Code:

IBaseDataProvider = interface
    ['{E498587E-581C-48E5-AC2E-8E3DCD725993}']
    function GetCellData(x, y: Integer): TCellData;
  end;

Met een 'truukje' in mijn testprogramma heb ik een custom provider gemaakt die helemaal geen x,y coordinaten heeft. Een soort hexeditor achtige opzet om te testen of het grid dat makkelijk kon laten zien.

delphi Code:

type
  TFileProvider = class(TInterfacedObject, IBaseDataProvider)
// ...
function TFileProvider.GetCellData(x, y: Integer): TCellData;
var
  ix: integer;
  b: Byte;
  C: Char;
begin
  ix := CellToIndex(x, y, 20); // converteer XY naar index ahv colcount
  if ix < fFileStream.Size then
  begin
    fFileStream.Position := ix;
    fFileStream.Read(b, 1);
    C := Char(b);
    Result := C;
  end;
end;

Maar eigenlijk wil ik dat niet, omdat de data natuurlijk niet afhankelijk wil zijn van een aantal kolommen.
Ideeen over hoe ik de basische interface xy-onafhankelijk kan maken? En wel zo dat een grid het 'snapt' :)

Bijgesloten Thumbnails

TImage afgeleide AV't in de objectinspector

Lodewijk — Thu, 17 May 2012 18:46:15 GMT

Goedenavond heren en mogelijke dames,

Ik ben onbekend met het maken of aanpassen van componenten. Nu is het me gelukt een eigen component te maken. Echter gaat het mis wanneer ik de functionaliteit toe wil voegen waar het om gaat, namelijk het hebben van een verschillende afbeelding bij MouseEnter en MouseLeave.

Voor het gemak de complete code, veel is het eigenlijk niet (veel begin en end ja :p).

delphi Code:

type
  THoverImage = class(TImage)
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
    fMouseEnterImage: TPicture;
    fMouseLeaveImage: TPicture;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
    property MouseEnterImage: TPicture read fMouseEnterImage write fMouseEnterImage;
    property MouseLeaveImage: TPicture read fMouseLeaveImage write fMouseLeaveImage;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [THoverImage]);
end;
 
procedure THoverImage.CMMouseEnter(var Msg: TMessage);
begin
  Picture.Assign(fMouseEnterImage);
 
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;
 
procedure THoverImage.CMMouseLeave(var Msg: TMessage);
begin
  Picture.Assign(fMouseLeaveImage);
 
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;
 
constructor THoverImage.Create(AOwner: TComponent);
begin
  inherited;
  fMouseEnterImage := TPicture.Create;
  fMouseLeaveImage := TPicture.Create;
end;
 
destructor THoverImage.Destroy;
begin
  if Assigned(fMouseEnterImage) then
    fMouseEnterImage.Free;
  if Assigned(fMouseLeaveImage) then
    fMouseLeaveImage.Free;
    
  inherited;
end;

Wanneer ik mijn component nu op een form drop en een OnMouseEnter image toewijs via de OI, krijg ik harde AV's als ik daarna nog eens probeer de OI aan te raken. Ik vermoed dat het mis gaat op #32 en #40

Bega ik een groffe zonde of mis ik een kleinigheid?

PS: de private fields worden later nog nuttiger gebruikt, maar wil het eerst zonder AV's hebben

Extended naar Integer ?

organizer — Thu, 17 May 2012 01:07:07 GMT

Met Delphi XE2 hoe kan ik een
Extended naar een Integer omzetten?

Heb verschillende combinaties gebruikt, en geen van allen werkt.
Krijg altijd "Incompatible Type"

Alvast bedankt.

plaatje in RichEdit

Hengelmolen — Wed, 16 May 2012 18:27:33 GMT

Hallo,

Is het mogelijk om in RichEdit een plaatje te plaatsen?

Zo ja met welke code?

Theo

idHTTP zit 'vast' als server niet reageert?

Ruud123 — Wed, 16 May 2012 08:41:21 GMT

Ik ben een beetje aan het experimenteren met idHTTP om informatie naar een server te verzenden.
Tot nu toe heb ik idHTTP nog nooit gebruikt, maar in principe werkt dit goed:

Code:

function PostCommand(URL, Command1, Command2: string): string;

var lParamList: TStringList;

begin

  lParamList := TStringList.Create;

  lParamList.Add(Command1);

  if Command2 <> '' then lParamList.Add(Command2);

  try

    Result := Form1.idHTTP1.Post(URL, lParamList);

  finally

    FreeAndNil(lParamList);

  end;

end;

Alleen... als de server een keer niet beschikbaar is, is het niet mogelijk om een nieuwe poging te doen. Pas als ik de aplicatie dan herstart kan ik weer iets verzenden.
Nu heeft het ongetwijfeld iets met mijn onbekendheid met idHTTP te maken (of de Indy componenten in het algemeen), maar: hoe kan ik deze fouttoestand weer resetten, zodat ik een volgende poging kan doen als de server weer beschikbaar is?
(Waarschijnlijk het het gewoon 'de weet'...)

PDF aanmaken met Rave

Livinus2 — Wed, 16 May 2012 08:23:20 GMT

Hallo,
Wij hebben een applicatie die code-based rapporten afdrukt met Rave. Meestal zijn het tabellen met diverse Fixed space fonts. Dit gaat prima.

Ook de preview met rave werkt prima, en toont het rapport zoals het er hoort uit te zien op het scherm.

Maar opslaan in een PDF bestand geeft problemen. Alle tekst en lijntjes zitten in de PDF, maar het font lijkt mij Arial te zijn. Hierdoor lijkt een tabel nergens op.

EmbedFonts:= True gezet. De eigenschappen van de PDF file opgevraagd in Adobe Reader, en de fonts zitten wel degelijk in het PDF bestand (ze staan bovendien lokaal op de PC).

Alle waarden van FontEncoding uitgetest (feWinAnsiCoding, feStandardEncoding...). Op enkele details na geeft dit geen verschil.

Google heeft niets opgeleverd. Blijkbaar heb ik ergens een foute setting.

Deze speelt zich af in Delphi 7, Rave 5.08 en verschillende versies van Adobe.

Is er enige suggestie ?

Alvast Bedankt,
Lieven

scrollbar sif_page

EricLang — Tue, 15 May 2012 20:43:45 GMT

Met SetScollInfo kun je de grootte van de page zetten, zodat de grootte van dat sleepblokje (hoe noem je zo'n ding. thumb nog wat?) verandert.
Kun je de page-grootte ook instellen zonder dat dat sleepblokje verandert?
De scrollbar moet dus wel de pagegrootte "weten" maar niet weergeven.

Dbblok

Wok — Tue, 15 May 2012 20:30:58 GMT

Ik ben op zoek naar een componentje of een stukje code Waarbij ik een rechthoekig blokje (gantt) kan plaatsen in een grid.
Het liefst wil ik deze gekoppeld hebben met 2 datetimevelden uit een tabel.
De tijden moeten dan met de drag/drop/stretch mogelijkheden meelopen.
Ik ben op het net wel wat planningmodule's tegengekomen, maar die zijn vaak zo uitgebreid/complex dat het zijn doel een beetje voorbijschiet.

Ik ben ook we te porren om hier iets voor te bouwen, met wat hulp van wat mede forumleden.
Wat is een goed uitgangs punt? Een leeg canvas, waar ik alles van scratch af op teken, of kan ik beter een (db)grid nemen ?
Iemand met wat ideeen hierover?

Peter

Bijgesloten Thumbnails

Codesigning via IIS - PHP

mrniceguy — Tue, 15 May 2012 19:21:47 GMT

Ik wil via een IIS - PHP webserver een (Delphi) executable aanbieden die on-the-fly van een digitale handtekening (codesign) voorzien wordt.

Suggesties of voorbeelden hiervan zijn welkom ;)

Beste plek voor non visual components

jkuiper — Tue, 15 May 2012 14:46:42 GMT

Ik moet een memorytable gaan vullen met een csv bestand. Om aan te geven waar deze staat, kan je gebruik maken van TOpenDialog. Deze heb ik nu geplaatst in een datamodule. Maar eigenlijk opent deze een scherm, waarin je kan selecteren waar het desbetreffende bestand staat.
Staat dat component dan wel op de goede plaats? Er wordt altijd verteld dat je visuele dingen en data gescheiden moet houden.

Fout in STR proc; deel 2

FFM — Tue, 15 May 2012 11:20:59 GMT

var x: single; ss: string;
begin x:=0.01; str(x:4:2,ss) end;

levert voor ss: "0.00" !!!
Het schijnt alleen voor deze combinatie van getallen voor te komen.

Hoe kan dat?

AANVULLING: Als x = double dan gaat het wel goed!!!!

Afstandbediening via IP adres

Ruud123 — Tue, 15 May 2012 11:16:35 GMT

Ik zou iets willen maken om in een vakantiehuisje op afstand het licht aan en uit te kunnen doen.
Op de betreffende lokatie is een Internetaansluiting aanwezig en een klein netbook PC-tje.
Ik zit dus te denken aan het verzenden van een commando naar een IP adres, waarbij aan de ontvangende kant deze boodschap omgezet zal worden in een sturing voor de verlichting.
De koppeling tussen PC en verlichting is geen probleem, maar hoe zou ik de communicatie het beste kunnen aanpakken?
Ik heb weinig ervaring met het communiceren naar IP adressen.
Iemand een goed idee? (Of misschien een duwtje in de goede richting?)

Url met authenticatie openen

GolezTrol — Tue, 15 May 2012 10:03:12 GMT

Ik zou graag een url willen openen in de default browser op een systeem. Op die url moet ook direct ingelogd worden. Dit is mogelijk door een gebruikersnaam en wachtwoord in de url te zetten, bijvoorbeeld

http://john:doe@www.voorbeeld.com

Nadeel daarvan is dat die gegevens dan in de url history worden gezet. Bovendien blokkeert IE deze methode helemaal, tenzij je in de registry wat instellingen omzet, wat ook niet wenselijk is.

Deze vraag wordt af en toe wel gesteld, maar ik heb er nog geen goed antwoord op kunnen vinden, dus ik doe hier maar een gooi.

Het idee is om een programmatje of linkje (bij wijze van spreken als een USB-dongle) te kunnen versturen, waarmee iemand naar een afgesloten onderdeel van een website kan.
Het is overigens niet voor een serieuze beveiliging, ik wil in eerste instantie weten of het �berhaupt mogelijk is.

Het hoeft ook niet per se in Delphi. Scripts, .NET een command line opdracht.. Mag allemaal. :)

JSON Array Converten naar JPG

mariovermeulen — Mon, 14 May 2012 19:03:12 GMT

hallo,

Ik krijg vanuit een Flash Applicatie een JPG in een JSON Array vertuurd naar mijn REST Service.

Hoe kan ik deze JSON Array weer terug converten naar een JPG file?

Ik heb een functie die van een TbyteDynArray een file kan schrijven maar ik krijg de data van de JSON Array niet naar een TByteDynArray.

Hier is de functie

procedure ByteArrayToFile(const ByteArray : TByteDynArray; const FileName : string );
var Count : integer;
F : File of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Rewrite(F);
try
Count := Length( ByteArray );
pTemp := @ByteArray[0];
BlockWrite(F, pTemp^, Count );
finally
CloseFile( F );
end;
end;

Enig iemand hier ervaring mee?

Imagelist geeft geen mooie icons weer en vereist repaint

Lodewijk — Mon, 14 May 2012 18:34:35 GMT

Dames? en heren,

Ik gebruikte de volgende code om een mouseover effect aan een aantal van TImage afgeleide buttons te geven:

Delphi Code:

procedure TfrmMain.imgConfigMouseEnter(Sender: TObject);
begin
  imgConfig.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)
                              +'\new-item3.ico');
end;
 
procedure TfrmMain.imgConfigMouseLeave(Sender: TObject);
begin
  imgConfig.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)
                              +'\new-item1.ico');
end;

Om dit wat netter te doen (geen constante belasting van de schijf), wil ik die losse .ico bestandjes even in een imagelist proppen en vandaaruit lezen. Dat doe ik met de volgende code:

Delphi Code:

procedure TfrmMain.imgConfigMouseEnter(Sender: TObject);
begin
  ImageList1.GetBitmap(2, imgWebsite.Picture.Bitmap);
end;
 
procedure TfrmMain.imgConfigMouseLeave(Sender: TObject);
begin
  ImageList1.GetBitmap(1, imgWebsite.Picture.Bitmap);
end;

Dit werkt echter niet, in die zin dat bij mouse-enter de afbeelding wel wijzigt, maar bij mouseleave niet (en bij mouseenter dan ook niet meer, echter zie je dit niet omdat die afbeelding er al staat en dus sowieso neit zichtbaar zou wijzigen).

Nu ben ik erachter dat als ik er een repaint achter plak, het wel werkt. Maar waar komt dit door?

Tevens worden sommige icons wat pixelig of verandert zwart in wit wanneer ik de imagelist gebruik. Zie bijlage, het rechter icoontje: bij de eerste screenshot is de icon gewoon via de object inspector in de image geladen. Bij de tweede is het na een mouse-enter en vervolgens mouse-leave. Excat hetzelfde icoontje. Als ik een ander icoontje gebruik is het een nog groter drama zoals te zien in screenshot 3 (gelukkig is dat verder niet van toepassing, maar geeft wel aan dat het niet lekker werkt). Heeft dat ook nog een specifieke oorzaak?

Toevoeging: de height/width van de imagelist is gelijk aan die van mijn icons
Toevoeging: refresh t/m invalidate geprobeerd, allen hetzelfde resultaat

Bijgesloten Plaatje(s)

Reporting D2006

lainkes — Mon, 14 May 2012 17:51:44 GMT

Hallo,

Ik wil het volgende doen.
Er moet een MS Word document geopend worden, waarin de gegevens van een klant worden geimporteerd uit een DB. Dit na selectie van een record uit een lijst.
Vroeger gebruikte ik Reportbuilder, maar dat was hard-coded in mijn programma, zodat de administratie die het programma gebruikt zelf geen wijzigingen kon doen aan de template.
Dus nu via MSWord, zouden ze zelf de tekst kunnen aanpassen.

Enig idee hoe ik dit kan realiseren?

Alvast bedankt

Lainkes

Zoom met webcam werkt niet

Jero — Mon, 14 May 2012 17:27:49 GMT

Hallo,

ik probeer met behulp van IAMCameraControl in te zoom met mijn webcam.

Hiervoor gebruik ik:

Code:

procedure TVideoForm.trbZoomChange(Sender: TObject);

var

  CameraControl: IAMCameraControl;

  Minimum, Maximum, Step, Default, Value, Flags: integer;

  SetFlag: tagCameraControlFlags;

begin

  if Succeeded(VideoSourceFilter.QueryInterface(IID_IAMCameraControl,

      CameraControl)) then

  begin

    if Succeeded(CameraControl.GetRange(CameraControl_Zoom, Minimum, Maximum,

        Step, Default, Flags)) then

    begin

      trbZoom.Min := Minimum;

      trbZoom.Max := Maximum;

      CameraControl.Set_(CameraControl_Zoom, trbZoom.Position,

        CameraControlFlags('2'));

      CameraControl.Get(CameraControl_Zoom, Value, SetFlag);

      lblZoom.Caption := IntToStr(Value);

    end

    else

      lblZoom.Caption := 'Fail Cam Zoom';

  end;

end;

De caption van lblZoom verandert gewoon van 1 tot en met 5 (Minimum en Maximum). Echter zoomt de camera niet in.

Iemand een idee wat ik fout doe?

Alvast bedankt.

generic property

EricLang — Mon, 14 May 2012 11:53:23 GMT

Waarom kan dit eigenlijk niet?

delphi Code:

type
  tGetter = class
  public
    function Get: T;
  end;
 
  TTest = class(tGetter)
  public
    property X: Integer read Get; // error
  end;

Firemonkey - update OSX applicatie

mrniceguy — Mon, 14 May 2012 09:35:02 GMT

Voor update doeleinden heb ik een launcher (Windows/OSX) ontwikkeld die de hoofdapplicatie start (voor starten wordt gecontroleerd op beschikbare updates).

Onder Windows werkt het prima maar onder OSX wordt de hoofdapplicatie niet gestart.

De volgende code wordt hiervoor gebruikt.

Code:

_system(PAnsiChar('open ' + UTF8String(ExtractFilePath(ParamStr(0))+ 'mainapp')));

Wie of wie heeft suggesties en/of opmerkingen.

2 Programma idee�n

Hansvb — Sun, 13 May 2012 18:22:41 GMT

Twee programma idee�n.

1: Rapporten generator
De gedachte is om een soort rapporten generator te maken. Ik heb geen idee of dat mogelijk is, of dat er een betere manier bestaat. De grote truc moet zijn dat het heel flexibel en eenvoudig in gebruik is. Ik stel met nu voor dat de werking lijkt op het maken van draaitabellen in Excel.
Je maakt verbinding met een database en leest een bepaalde tabel met gegevens uit. De kolomnamen worden bijvoorbeeld als een knop in een form gezet. Vervolgens sleep je 1 of meerdere kolommen in een bepaald deel van je form en de benodigde sql wordt samengesteld en uitgevoerd. Het resultaat kmt in een grid te staan of zo.
Als dat kan dan wordt de volgende stap om ook een mooie uitdraai te kunnen maken.

Is dit te doen? Graag tips in de juiste richting

2: Een gegevens dashboard.
Lijkt veel op bovenstaande . Ik wil eerst een form samenstellen dat allerlei grafieken bevat die gevuld worden met data uit een database. dat deel gaat me wel lukken. Nu het deel dat overeenkomst heeft met bovenstaande. Als volgende stap zou mooi zijn als de gebruiker zelf grafieken kan samenstellen door met drag en drop gegevens op een grafiek los te laten.

Ook hier graag tips in de goede richting. Ik denk dat beide een mooi project kunnen zijn voor de komende herfst en winter. (Ik ben geen echte programmeur, alleen een hobby programmeur die kleine tooltjes schrijft, dus dit is een hele stap verder denk ik).

XE2 ASM vraagje

pcoenen — Sun, 13 May 2012 17:16:14 GMT

Hallo,

Aangezien dit wel echt een stap te hoog voor mezelf is...
Kan iemand me zeggen wat er fout is aan het volgend stukje code:

Code:

  procedure LocalASM;

  asm

    MOV     ESP, EBP

    POP     EBP

    JMP     [_StringCchCopy]

  end;

XE2 64bit compiler error op de POP regel:
Invalid combination of opcode and operands

Grtn,
Pascal

units xe en xe2

EricLang — Sun, 13 May 2012 14:25:22 GMT

Hoe ga ik om met compileren onder XE en XE2?
Windows is geworden WinApi.WIndows.
Wat is de slimste manier?

Code:

procedure MijnControl.InvalidateRect(R: TRect);

begin

  Windows.InvalidateRect(Handle, @R, False);

end;

Ik vind het nogal niet leuk wanneer ik dit soort dingen zou moeten doen:

Code:

procedure MijnControl.InvalidateRect(R: TRect);

begin

  {$ifdef XE2}

  WinApi.Windows.InvalidateRect(Handle, @R, False);

  {$else}

  Windows.InvalidateRect(Handle, @R, False);

  {$endif}

end;

"Windows" doet het nog wel gewoon in XE2 dat wel...

Installatie probleem Abbrevia 5.0

mierlp — Sun, 13 May 2012 10:50:29 GMT

hi

ik wil op een andere machine met Delphi 2007 Abbrevia 5.0 installeren.
Volg de installatie instructie maar krijg het voor geen mogelijkheid voor elkaar, ook niet als je de .dpk gebruik.

Krijg foutmelding zoals in afbeelding..iemand suggusties/tips/trucs

Greetz Peter

Bijgesloten Plaatje(s)

String to Hex probleem

organizer — Sat, 12 May 2012 23:16:56 GMT

Ik gebruik altijd deze functie, maar het werkt ineens niet meer goed met XE2.

Code:

function HexToString(H: ansiString): ansiString;

var I: Integer;

begin

Result:= '';

for I := 1 to length (H) div 2 do Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));

end;

Hij schrijft en leest prima, maar ineens, zit er verschil na het inlezen.

Het kan dus zijn dat deze optie niet goed werkt ?

Code:

Var

Teststr : Ansistring;

// Myreg  = de Tregistry.

begin

teststr:=HexToString('4151444f434b0a0000000f4b000000310000002e050000ab020000000000000000000000007a020000e30400001e');

myreg.writeBinaryData('Testing',testStr[1], Length(testStr));

end;

in de registry ziet het er zo uit

Code:

"Docking"=hex:41,51,44,4f,43,4b,0a,00,00,00,0f,4b,00,00,00,31,00,00,00,2e,05,\

  00,00,ab,02,00,00,00,00,00,00,00,00,00,00,00,00,7a,02,00,00,e3,04,00,00,26\

D'r is een Hexje veranderd.
1e = 26 nu

Enig idee hoe dat kan?

Datum notatie in een grafiek

Hansvb — Sat, 12 May 2012 18:58:37 GMT

Met de navolgende regels vul ik een grafiek.

Code:

Chart1.Series[0].Addxy(Main_Frm.ADOQuery1.FieldByName('datum').AsDateTime, Main_Frm.ADOQuery1.FieldByName('hoog').Asfloat,  '', clGreen);

          Chart1.Series[].Addxy(Main_Frm.ADOQuery1.FieldByName('datum').AsDateTime, Main_Frm.ADOQuery1.FieldByName('laag').Asfloat,  '', clred);

De datum gaat fout. In plaats van een datum wordt een getal getoond. Hoe kun je in een grafiek een datumnotatie weergeven op de as?

Indy goed installeren

Wok — Fri, 11 May 2012 21:04:12 GMT

Wie weet hoe je de laatste versie van Indy goed kan installeren in Delphi2010.
Ik heb de laatste versie via de Subversion link opgehaald.
Maar nu nog in mijn delphi ....
Ook is het gebruik van StoreRevNum.bat + StoreRevnumhooks.bat me niet duidelijk.

Alsvast bedankt,
Peter

tobject notification

EricLang — Fri, 11 May 2012 11:52:38 GMT

TComponent heeft een freenotification, maar ik heb eigenlijk een freenotification van TObject nodig.
Is dit technisch mogelijk met XE of XE2?

De praktische kant van het probleem:
Ik heb een grid gemaakt dat data kan laten zien van verschillende soorten objecten zoals TList, TStringList, TList etc.
Dit werkt voor "onbekende" objecten met RTTI.

Daarvoor is dus een referentie nodig naar het object dat het grid wil laten zien.
Nu wil ik de gebruiker van het grid niet geforceerd opzadelen met mijn eigen klassen, maar gewoon kunnen zeggen.

Code:

Grid.DataProvider := MijnDing;

En de rest moet "vanzelf" gaan.
Twee dingen zijn er eigenlijk nodig:
- een freenotification
- een change notification (die zit er in de meeste lists wel, maar het grid component mag natuurlijk geen events stelen).

Tips, truuks, ideeen welkom :)

Update programma via POP3 met Delphi

RemcoDusbaba — Fri, 11 May 2012 08:37:59 GMT

Hallo,

Ik ben bezig een programma samen te stellen die je kan updaten door middel van codes.
Deze codes heb ik zelf bedacht en hebben een bepaalde functie.
Nu wilde ik graag weten hoe je met delphi deze codes uit een POP3 mail kunt halen.
Of beter gevraagd; hoe je TidPOP3 kunt gebruiken?
Ik heb nu de volgende code:

Code:

procedure TForm_Update.but_retClick(Sender: TObject);

begin

Mes.Clear; //Mes = TidMessage

SSL.Port := 995;

SSL.DefaultPort := 995;

POP3.Host := 'pop.gmail.com';

POP3.Username := 'username@gmail.com' ;

POP3.Password := 'Password';

POP3.Port := 995;

POP3.Connect;

POP3.Retrieve(1,Mes);

txt_message.Lines.Text := Mes.Body.ToString; //txt_message = TMemo



if pop3.Connected = true then pop3.Disconnect;

end;

Het is de bedoeling dat de email body in 'txt_message' komt te staan zodat ik deze kan gebruiken.
Ik gebruik Delphi XE2.

Ik hoop dat jullie me kunnen helpen met deze vraag.
Graag zie ik jullie antwoord tegemoet.

Groetjes Remco

Muisbeweging applicatie

m.devriesjr — Thu, 10 May 2012 14:02:04 GMT

Hallo,

Ik wil graag de muisbeweging afvangen, ook als de muis niet over de form/shape beweegt.

Dus als de muis naar links beweegt dat form1 visible wordt. En als de muis naar rechts beweegt dat form1 niet meer visible wordt.

Wie kan mij helpen?

Embarcadero opent een kantoor

AntonSteen — Thu, 10 May 2012 13:37:18 GMT

Voor hen die het willen weten, Embarcadero opent een kantoor in Amsterdam

http://www.itnewsonline.com/showrwst...p?storyid=8089

firebird embedded in andere directory

EricLang — Thu, 10 May 2012 09:28:47 GMT

Waarom kan ik alle firebird bestanden niet in een submap van mijn applicatiedirectory zetten?
LoadLibrary mislukt, ondanks dat alle bestanden aanwezig zijn.

Wanneer alles in mijn appdir staat laadt hij wel...

Database and OO programmeren

lainkes — Wed, 09 May 2012 09:56:19 GMT

Hallo,

Ik moet via mijn programma gegevens lezen en schrijven naar een database.
Ik doe dat altijd met een ADO connectie naar een SQL database.

Ik vroeg mij nu af of ik dit met een OO aanpak moet doen?
Of gewoon verder doen zoals ik nu doe. Via een datasource en dataset mijn gegevens linken aan vb DBEdit componenten.

Alvast bedankt voor het advies

Groeten

Lainkes

sql vraagje

marcov — Wed, 09 May 2012 08:02:42 GMT

Ik heb een tabel Klant, en bij elke regel in Klant horen meerdere regels in Contact.

In Contact zit ook een datum veld, en een naam.

De query moet regels opgeven met een aantal velden van Klant, en een aantal velden van de corresponderende Contact regel met de hoogste datum, waaronder die datum.

Ik voel een GROUP BY (over de join?) aankomen, maar dat is ff geleden :-)

Target database is Postgres, maar als het voorbeeld niet te bizar is, kom ik met iets anders er ook wel uit. Het is meer een aanpak vraag.

Notepad starten in een tweede form

Dubbeld — Wed, 09 May 2012 08:01:39 GMT

Hallo,

Ik start vanuit Unit1 een tweede Form op. Het is de bedoeling dat in dit form Notepad wordt weergegeven. Maar ik krijg twee schermen te zien, nl. Form2 en het scherm van Notepad. De vraag is of dit mogelijk is en hoe.

Code:



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,ShellAPI;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



uses Unit2;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

   Form2.showmodal;



end;



end.











unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ShellAPI;



type

  TForm2 = class(TForm)

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form2: TForm2;



implementation



{$R *.dfm}



procedure TForm2.FormActivate(Sender: TObject);

begin

     ShellExecute(Handle,'open','NotePad',nil,nil, SW_Show);

end;



end.

referentie naar interface

EricLang — Tue, 08 May 2012 20:46:58 GMT

Ik heb in een object een referentie naar een interface.
Is het mogelijk deze referentie zo te maken dat hij geen enkele invloed heeft op de refcounting ervan? Ik wil dat de referentie strict priv� is...

Welke versie van Delphi

lainkes — Tue, 08 May 2012 16:38:17 GMT

Hallo,

Ik moet een programma schrijven in Delphi dat een connectie maakt met een SQL-server database. Dit programma wordt dan op verschillende pc's ge�nstalleerd.
Heb ik met een DELPHI XE2 PROFESSIONAL versie genoeg?

Alvast bedankt

Lainkes

public variabele in ander form

jkuiper — Tue, 08 May 2012 07:36:53 GMT

Een basic vraagje (of misschien een bevestiging).

Ik heb een datamodule als public in een formulier gedeclareerd en als object toegevoegd. Nu roep ik een tweede formulier aan, die een klein beetje een child is voor het eerste scherm (het tweede scherm wordt nergens anders opgeroepen). Nu heb ik de 'masterform' in de uses van de childform (bij interfaces) geplaatst. Verwacht eigenlijk dat ik dan de public variabele van de masterform kan gebruiken, maar de compiler ziet dit als een fout omdat de 'masterform' niet wordt gezien.

Komt dat doordat ik

delphi Code:

var
  masterform : TMasterForm

uit de script hebt gesloopt en de masterform net niet globaal te benaderen is?

Panels draggen?

organizer — Tue, 08 May 2012 02:41:09 GMT

Is het mogelijk om panels te verschuiven op een Form?
Dus een Drag/Drop effect.

Kan dus wel gewoon items draggen van 1 panel naar een ander panel, maar
kan het panel zelf niet drag/droppen overal op me scherm.

Ik probeer nl, een simpele docking systeem te maken van alleen panels.

C++ DLL aanroepen vanuit Delphi

robbedoes — Mon, 07 May 2012 18:28:02 GMT

Hallo,

Ik heb een dll dat geschreven is in C++. Aangezien ik geen benul heb hoe je C++ programmeert, heb ik mbv Bob Swart's zijn converter het header bestand omgezet naar een Pas-bestand.

Ik krijg nu een foutmelding:

Code:

[DCC Error] CNCAPI.PAS(36): E2003 Undeclared identifier: '__declspec'

Wat Gaat hier fout?

Bijgevoegd Header-bestand (omgezet naar txt-bestand) + Pas-bestand.

Bijgesloten Bestanden

	cncapi.txt (30,2 KB)
	CNCAPI.PAS (44,8 KB)

Sneltoetsen

AntonSteen — Mon, 07 May 2012 15:24:02 GMT

Hallo,

Misschien een hele rare vraag, maar is er ergens op het internet een lijst met sneltoetsen binnen Delphi te vinden.
De meest bekende weet ik wel (f9), maar ik vraag me af of er meerdere zullen zijn.

Alvast bedankt

Anton

DFM tonen.

JantjeB — Mon, 07 May 2012 13:23:51 GMT

Hoi allen,

Bij een Delphi 5 project is per ongeluk een datamodule buiten scherm geraakt.
Nu zou ik de dfm willen openen om de left en top properties aan te passen zodat deze terug binnen mijn schermen past, maar merk dat ik daar via de gewone pas-view niet aan kan.
Is er een manier om dit te doen?

Nieuwe process detecteren

musti — Sun, 06 May 2012 14:09:25 GMT

Hallo,

Wat is het makkelijkste en beste manier om een nieuwe process te detecten?

Bijvoorbeeld :

wanneer HelloWorld.exe geopend word ziet "Main.exe" dat en roept showmessage(Processname + ID); dus als helloworld geopend is komt er een message "Helloworld.exe 1020(ID)".

Ik heb het al geprobeerd met Hooks maar kom niet verder:(

MSSQL Bepalen waar cum. aantal door de nul gaat

Henk6a — Fri, 04 May 2012 15:15:41 GMT

Ik heb een MSSQL tabel met datums en aantallen

13-01-2012 200
15-01-2012 300
17-01-2012 1200
18-01-2012 -1500
21-01-2012 500
23-01-2012 -1500
25-01-2012 500

Ik zoek nu dus de datum waar het cumulatieve som van de aantallen van positief naar negatief gaat en/of andersom.

Het liefst zou ik dit mbv een sql query oplossen

Heeft iemand een idee hoe dit op te lossen?

Het grote rechthoekenprobleem

SamWitse — Fri, 04 May 2012 06:55:30 GMT

Beste fans,
Omdat het vrijdag is, volgt hier een hersenbreker.
Gegeven: een rechthoek van cellen, met in iedere cel een 1 of en 0.
Gevraagd: het minimum aantal rechthoeken die samen alle nullen overlappen, maar geen enkele 1 overlapt. De rechthoeken mogen mekaar overlappen.
Zie voorbeeld.

Merk op dat er mogelijks meer dan ��n oplossing is.
Ik hoef geen uitgewerkt programma, maar enkel een algoritme.
Ik zie niet onmiddellijk een richting waarin ik een oplossing moet zoeken, buiten een domme try-and-error van alle mogelijke rechthoeken.
Alle idee�n zijn welkom.

Bijgesloten Plaatje(s)

Label caption update

Luig� — Thu, 03 May 2012 13:25:17 GMT

In mijn applicatie wil ik dat bepaalde labels ge-update worden, dat heb ik op de volgende manier ge�mplementeerd:

Code:

unit u_voorbeeld;



interface



uses

  StdCtrls;



type

  TVoorbeeld = class

  private

    FNaamLabel: TLabel;

    FNaam: string;

    procedure SetNaam(const Value: string);

    procedure SetNaamLabel(const Value: TLabel);

    procedure UpdateNaamLabel;

  public

    property Naam: string read FNaam write SetNaam;

    property NaamLabel: TLabel read FNaamLabel write SetNaamLabel;

  end;



implementation



{TVoorbeeld}



procedure TVoorbeeld.SetNaam(const Value: string);

begin

  FNaam := Value;

  UpdateNaamLabel;

end;



procedure TVoorbeeld.SetNaamLabel(const Value: TLabel);

begin

  FNaamLabel := Value;

end;



procedure TVoorbeeld.UpdateNaamLabel;

begin

  if Assigned(FNaamLabel) then

    FNaamLabel.Caption := FNaam;

end;



end.

Het doet wat ik wil dat het doet, maar ik vroeg me af of dit een juiste manier is om het te implementeren?

Bij voorbaat dank!

Starten met Firemonkey

Wok — Thu, 03 May 2012 08:57:17 GMT

Kennis maken met Firemonkey, en je kan er ook nog wat van leren.

Gr. Peter

Download manager Probleem

organizer — Thu, 03 May 2012 01:28:58 GMT

Ik zit met een probleem.
Hopelijk kan iemand het verklaren voor me :)

Als ik files aan me queue toevoegd en download de files, dan
crashed die soms met "item not found in list"

Dit gebeurd als ik meer dan 4 threads(downloads) gebruik.

De filenaam krijgt een (2) erachter, maar dat zou niet mogelijk mogen zijn :confused: (hij wordt in the thread gegenereerd als een file al bestaat..)
wat dus het geval is,

Als ik in de log kijk, dan zie ik some 2 threads met dezelfde naam, ondanks dat het maar 1 keer in de queue zit.

op de 1 of andere manier, wordt er een dubbele download gedaan

Heeft iemand tijd om ernaar te kijken?

EDIT:
Probleem is al opgelost...

was vergeten een

Code:

Download.FState := TDownloadState.dsPending;

in de code

Bijgesloten Bestanden

hulp gezocht.zip (13,5 KB)

image van oude pc.

jkuiper — Wed, 02 May 2012 20:51:24 GMT

Als ik een nieuwe pc heb en daarmee wil met Delphi (of iets anders) mee programmeren, zal ik alles opnieuw moeten installeren.
Nu is het heel makkelijk om met een 64 bits pc en aardig wat RAM geheugen met een virtualbox een ander systeem te installeren en daarmee aan de slag te gaan. Met een goede image kan je altijd weer terug naar een nieuwe situatie.
Mijn oude pc werkt prima en is goed ingedeeld met alle aanwezige software.
Is het mogelijk om van die pc een image te maken en deze in een virtualbox te zetten?

Floating point waarde goed weergeven

Bachatero — Tue, 01 May 2012 20:08:30 GMT

Uit een binair bestand probeer ik een opgeslagen floating point IEEE format single uit te lezen en weer te geven, maar dat lukt me niet.

Het is de onderstaande opgeslagen floating point (IEEE format single) waarde:

0.0495145581662655 zichtbaar als 3D4ACFC7 in hex in het binaire bestand.

Als ik het vervolgens zichtbaar maak (zie onderstaande code) worden er in datastring vier characters zichtbaar (��J=), zie bijgevoegd screenshot index83 en met VR(FL) = Floating point, waarschijnlijk extended ascci tekens maar dit ziet er niet uit als het floatingpoint getal 0.0495145581662655.

Ik moet dus de inhoud zichtbaar in data string als (��J=) omzetten naar het resultaat '0.0495145581662655'

Maar dit lukt me maar niet.

Kan iemand mij een voorzetje geven?

Dank,

Johan

delphi Code:

Type
   TDicomTag8 = Packed Record              // Basis struktuur ACR-NEMA formaat */
     Group  : Word;                        // Group                2 Bytes
     Element: Word;                        // Element              2 Bytes
     VR     : array[1..2] of byte;         // Value Representation 2 Bytes
     Length : Word;                        // Value Length         2 Bytes
     Data   : array[1..1024] of byte;      // Value                
   end;
 
FS.Read(ATag8.Data, ATag8.Length);
SetString(DataString, PAnsiChar(@ATag8.Data[1]),ATag8.Length);
Rij.SubItems.Add(DataString);

Bijgesloten Thumbnails

XML binding

Wok — Tue, 01 May 2012 19:09:47 GMT

Hallo,

Wie kan me op weg helpen om een datetime goed uit een xml te krijgen en in een database te krijgen.

Ik heb via het Xml Artikel een unit gemaakt om een xmlinterface te maken. Dat gaat goed.

Code:

Function TXMLReport_dataType.Get_Info_datetime_start: TDateTime;

Begin

  Result := VarToDateTime(ChildNodes['info_datetime_start'].NodeValue);

End;

Maar de xml datetime attributen die hebben soms geen waarde toegekend.
Dan gaat het fout. Ik heb het tijdelijk opgelost door het binnen een try except te zetten, en dan een 0 toe te kennen, maar er zijn vast elegantere manieren.

Ook staat de datetime string in een andere volgorde.
Voorheen deed ik het omzetten dat zo:

Code:

Procedure TDM.DataModuleCreate(Sender: TObject);

Begin

  // datetimesettings dd-mm-yyy omdraaien.

  GetLocaleFormatSettings(GetUserDefaultLCID, MySettings);

  MySettings.DateSeparator := '-';

  MySettings.TimeSeparator := ':';

  MySettings.ShortDateFormat := 'yyyy-mm-dd';

  MySettings.ShortTimeFormat := 'hh:nn:ss';

End;



Function ParamChk_Datetime(Parameter, Waarde: String): TDateTime;

  Begin

    If Waarde <> '' Then

      Begin

        ADQueryOrder.ParamByName(Parameter).AsDateTime := StrToDateTime(Waarde, MySettings);

       //  {meer code}

      End

    Else

      ADQueryOrder.ParamByName(Parameter).Value := '';

  End;

Maar hoe krijg ik een soortgelijke routine in de xml databinding?

Peter