Szisztok !

A gondom:
   bmp betöltése kliensterületre, Win95 alatt, API függvényekkel.


 ....
hBitl = LoadBitmap(hInst,MAKEINTRESOURCE( IDBMP_FRAME ) );
/*
 *  nem fogadja el a file nevét második paraméternek ?
 */
 ....

case WM_PAINT:
 HDC hdc, memDC;
 RECT rt;                         /*
                                   * Csak átméretezés után hajlandó
                                   * megjeleníteni a IDBMP_FRAME -t,
                                   * elsőre csak egy pixelt rajzol ki.
                                   * ??????????
                                   */

 GetClientRect(hWnd, &rt);
 hdc = BeginPaint(hWnd, &ps);
 memDC = CreateCompatibleDC(hdc);

 SelectObject( memDC, hBitl);
 BitBlt(hdc,rt.left+10,rt.top+10,500,150, memDC,0,0,SRCCOPY);
 DrawText(hdc, szHello, strlen(szHello), &rt, DT_CENTER);

 EndPaint(hWnd, &ps);
 DeleteDC(memDC);
break;
 ....

Hampo

Hali!

Adva van egy progi, ami MS-SQL szervert hasznal adatbaziskezelesre.
Nem tud minden olyan lekerdezest, amire szukseg lenne, ezert szeretnek
irni egy kis progit, ami
a hianyzo lekerdezeseket megcsinalja.
A kerdes az, hogy az SQL-szerver engedi-e, hogy hozzanyuljak az
adatbazishoz masik progibol?
Vagy ha nem, akkor hogyan lehet megkerulni ezt a problemat?

Elore is koszi.

Rocky

Sziasztok!

Delphiben irkalok egy programot, amihez deklaraltam ezeket a tipusokat:

type func = function(p: TList): PChar;
type PList = ^TList;
type TFuncParam = record
   f: func;
   par: PList;
   str: PChar;
end;
type PFunc = ^TFuncParam;

Namost, ha ezt irom:

var pj: PFunc;
 ....
New(pj); //vagy GetMem(pj, SizeOf(TFuncParam));
pj^.f := GetProcAddress(h, PChar(s));
pj^.par^.Add(PChar('hehe')); //hibauzenet
 ....

Az error Access violation, class C0000005

A hiba valahol ebben a TFuncParam-ban vagy a ra mutato pionterben
jelentkezik, mert egy masik (komplexebb) programbol is ilyen tipusu
hibat kapok. Erdekes, hogy a masik programban nem a rocord
hozzaferesenel jelentkezett a hiba, hanem egy string-manipulacional,
valahogy igy:

 New(pj);

 zpos := CharIPos(mit, '(');
 if zpos > 0 then begin
  Explode(Copy(mit, zpos+1, Length(mit) - zpos - 1), ',', pj.par^);
  s := Copy(mit, 2, zpos-2);
 end else begin
  s := Copy(mit, 2, Length(mit)-3); //itt kapom a hibat...
 end;

 pj^.f := GetProcAddress(mainf.h, PChar(s));
 pj^.str := nil;

Ha a hibas sort kiveszem, akkor mindig a kovetkezon jelentkezik a hiba.

Minden javaslatot, otletet szivesen fogadok, mert nemigen ertek a
pointerekhez, es ne haragudjatok, ha egy elemi hibat kovettem el, es
azzal nyaggatom a listat :)

--
udvozlettel,
Gergo

Az rtin szerint  azt irta, hogy:

> irtam egy java csetet ed netcapa alatt megy is, de a bongeszo az egyik
> osztalyra biztonsagi hibat jelez, es nem engedi
> futni!

Az applet-ek tudtommal csak olyan gephez csatlakozhatnak, ahonnan
letoltottek oket. Ez persze csak otlet.

				Bye,NAR

> Adva van egy mukodo konvertalo program, ami nagymeretu binaris inputbol
> csinal kicsi text outputot (file-ok). Semmi platformfuggo lepes nincs benne
> (elvileg).
>
> A progi pc-n es nt-n forditva es futtatva 5 mp alatt lefut, viszont az
> alpha-s dec unix-on forditva is futtatva a futasido tobb, mint 1 perc!

Hello!
Azt sajnos nem tudom, hogy mi az a függvény, amiben sok időt
tölt a rendszer. De fontos lenne tudni, hogy milyen jellegű a program:
az I/O vagy a CPU/FPU felhasználás dominál?

Gyanítom, hogy nem 32/64 bit vagy CPU kapacitás a gond, hanem
inkább I/O, mégpedig amiatt, hogy más az fopen default file puffer
mérete a két rendszeren.

Próbáld meg a setvbuf-ot, és a puffer méret legyen legalább 64KB
vagy ilyesmi a bemenő adatoknál
(legyen I puffer méret / O puffer méret = I fájl méret /O fájl méret).

-- 
Józsi